Дано четырехзначное число A. Определить есть ли в нем цифра M. И Сколько раз она встречается?

Записать на языке Паскаль.

Var a, m, k, i:integer;

begin

write ('a = ');

readln (a);

write ('m = ');

readln (m);

k:=0;

for i:=1 to 4 do

begin

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

a:=a div 10;

end;

writeln ('k = ', k);

end.

Пример:

a = 6726

m = 6

k = 2