uses crt;
var n,m:longint;
k,mx,imx,i,c:byte;
begin
clrscr;
repeat
write('n=');
readln(n);
until abs(n)<=2000000000;
n:=abs(n);
mx:=0;
imx:=0;
for i:=0 to 9 do{перебираем цифры}
begin
m:=n;{запоминаем исходное число}
c:=0;
while m>0 do{пока оно не ноль}
begin
k:=m mod 10;{отделяем по 1 цифре}
if k=i then c:=c+1;{если равна очередной, считаем}
if c>mx then{если этой цифры больше других}
begin
mx:=c;{ее кол-во - макс}
imx:=i;{запоминаем эту цифру}
end;
m:=m div 10;{идем к следующей цифре}
end;
end;
write('Наиболее часто встречается цифра ',imx,' ',mx,' рз.');
readln
end.