Загадывается трехзначное число Х. Из него нужно вычеркнуть одну цифру так, чтобы оставшееся число Y являлось делителем иходного числа Х.напишите такую программув PascalABCNET

Program SimpleText;var  a,FirstN,SecondN,ThirdN : integer;Begintryreadln(a);FirstN := a div 100;SecondN := ((a div 10) mod 10 );ThirdN :=( a mod 10);if ( a mod (SecondN*10+ThirdN) = 0 ) then writeln('Вычеркиваем первую цифру')else if ( a mod (FirstN*10+ThirdN) = 0) then writeln('Вычеркиваем вторую цифру')else if ( a mod (FirstN*10+SecondN) = 0) then writeln('Вычеркиваем третью цифру')else writeln('Неверно загадано число'); excepton System.DivideByZeroException do
writeln('Деление на 0');end;end.

1. Ну, я, в любом случае, старался