Дано натуральное число. Напишите программу, которая вычисляет сколько раз в нем встречается последняя цифра

program z1;

var a,k,p:integer;

begin

write('Введите число: ');

readln(a);

k:=0;

p:=a mod 10;

while a>0 do

begin

if a mod 10 = p then k:=k+1;

a:=a div 10

end;

writeln(k,' раз(-а) встречается последняя цифра')

end.