Дано натуральное число. Определить сколько раз в нём встречается цифра а. на паскале с помощью оператора цикла: whileББУДУ ОЧЕЕЕЕНЬ БЛАГОДАРНА 

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.