С клавиатуры вводится число. Отыскать количество цифр этого числа, кратных числу,

program raf105;

var a,a1,b,X:integer;

begin

write('Введите 1-ое число: ');

readln(a);

write('Введите второе число: ');

readln(a1);

while agt;0 do

begin

 b:= a mod 10;

 a:= (a-b) div 10;

 if (a1 mod b = 0) and (blt;gt;0)

     then X:= X+1

end;

writeln('В первом числе количество цифр кратных второму числу одинаково ',X);

end.

Написано на языке PascalABC.NET