Дано натуральное число

Program CountA; Uses Crt; var a,n,x,i: integer; beginclrscr; // очищаем экран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.