Program CountA;

Uses Crt;

var a,n,x,i:integer;
begin

clrscr;  // очищаем экран
write('Введите число n:');
readln(n); // ввод данных

write('Введите цифру а: ');
readln(a);  // ввод данных
x:=1; i:=0;  i-счётчик цифр а  
while (n<>0) do // Пока n не стало равным нулю
begin
    x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа  
   if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1 
   n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
 end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу

end.