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

program raf105;

var a,a1,b,X:integer;

begin

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

readln(a);

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

readln(a1);

while a>0 do

begin

 b:= a mod 10;

 a:= (a-b) div 10;

 if (a1 mod b = 0) and (b<>0)

     then X:= X+1

end;

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

end.

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