Количество заданных цифр в числе

n:=abs(n);
k:=0;
while n>0 do
 begin
   if n mod 10=a then inc(k);
   n:=n div 10
 end;

Program    DmitriyM;
uses       crt;
var        N   : longint;
           a,k : byte;
           ch  : char;
 
BEGIN
     clrscr;
     {$I-}
     repeat
       write('Введите целое число не более 2^31 = ');readln(n);
     until IOresult=0;
     {$I+}
     write('Введите любую цифру: ');
     ch:=readkey;writeln(ch);
     k:=0;a:=ord(ch)-48;
     write('В числе ',n,' цифра ',a,' ');
     while abs(n)>0 do
      begin
       if abs(n mod 10) = a then inc(k);
       n:=n div 10;
      end;
     if k > 0 then
        writeln('встречается раз: ',k)
              else
        writeln('отсутствует.');
     repeat until keypressed;
END.

Program    DmitriyM;
uses       crt;
var        N   : longint;
           a,k : byte;
BEGIN
     clrscr;
     repeat
       write('Введите целое число не более 2^31 = ');readln(n);
     until (abs(n)<=maxint);
     write('Введите любую цифру: ');
     readln(a);
     k:=0;
     write('В числе ',n,' цифра ',a,' ');
     while abs(n)>0 do
      begin
       if abs(n mod 10) = a then inc(k);
       n:=n div 10;
      end;
     if k > 0 then
        writeln('встречается раз: ',k)
              else
        writeln('отсутствует.');
     repeat until keypressed;
END.

var
N,k,i:integer;
b:string;
a:char;
begin
readln(N);
readln(a);
str(N,b);
for i:=1 to length(b) do
if b[i]=a then inc(k);
writeln(k);
end.

Program    DmitriyM;
var
N: longint;
a,k: byte;
BEGIN   
readln(n);    
readln(a);
k:=0;
while abs(n)>0 do
begin
if abs(n mod 10) = a then inc(k);
n:=n div 10;
end;
if k > 0 then 
writeln(k);
END.

program DmitriyM;
var n: longint;
    a, k: byte;
begin
  readln(n);    
  readln(a);
  n := abs(n);
  k := 0;
  while n > 0 do
    begin
      if n mod 10 = a then inc(k);
      n := n div 10
    end;
writeln(k)
end.