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