Сколько раз данная цифра B встречаеться в данном числе

Var
  n1,p,n,a: Longint;
  i,b: 0..9;
  k: Integer;
BEGIN
Write('Введите число: ');
Readln(n);
Write('Введите цифру: ');
Readln(b);
Write('Введите A: ');
Readln(a);
p:=1;
n1:=n;
While n>0 do
begin
  i:=n mod 10;
  n:=n div 10;
  If i=b Then
  Inc(k);
  p:=p*i;
end;
Writeln('ОТВЕТЫ:');
Writeln('а) ',k);
Writeln('b) ',(p>a) and (n1 mod a=0));
END.

Var
  a,b,c,d: Byte;
BEGIN
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
For d:=0 to 9 do
If ((a<>b) and (a=c) and (a=d)) or ((a=b) and (a<>c) and (a=d)) or ((a=b) and (a=c) and (a<>d))
   or
   ((b<>a) and (b=c) and (b=d)) or ((b=a) and (b<>c) and (b=d)) or ((b=a) and (b=c) and (b<>d))
   or
   ((c<>a) and (c=b) and (c=d)) or ((c=a) and (c<>b) and (c=d)) or ((c=a) and (c=b) and (c<>d))
   or
   ((d<>a) and (d=b) and (d=c)) or ((d=a) and (d<>b) and (d=c)) or ((d=a) and (d=b) and (d<>c)) Then
   Write(a,b,c,d,' ');
END.

Var
  n: Longint;
  i,a: 0..9;
BEGIN
Write('Введите число: ');
Readln(n);
Write('Введите A: ');
Readln(a);
While n>0 do
begin
  i:=n mod 10;
  n:=n div 10;
  If i=a Then
  Write(i);
end;
END.