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

var a,m,k,i:integer;beginwrite('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 = 6726m = 6k = 2