Составьте программу определяющую Сколько раз в натуральном числе К встречается цифра равная последней. Паскаль АВС

program KCounter;

var

{счетчик для подсчета ответа на задачу}

counter : integer;

{последняя цифра}

last : integer;

{Копия исходного числа}

copy : integer;

k : integer;

begin

writeln ('Введите число К');

readln (k);

{скопируем исходное число}

copy : = k;

{Получим последнюю цифру числа К}

last : = k mod 10;

while (k 0) do

begin

{разбиваем число на цифры и смотрим, равна ли последняя нужной}

if (k mod 10 = last) then counter : = counter + 1;

k : = k div 10;

end;

Writeln ('Цифра ', last, ' встречается в числе ', copy, ' ', counter, ' раз');

end.