program MaxDigitCount;

var
N, num, maxDigit, count, maxCount: integer;

begin
write('Введите натуральное число N: ');
readln(N);

maxDigit := 0;
maxCount := 0;

num := N;

repeat
count := 0;
N := num;

while N > 0 do
begin
if N mod 10 = maxDigit then
count := count + 1;
N := N div 10;
end;
if count > maxCount then
begin
maxCount := count;
maxDigit := num mod 10;
end;
num := num div 10;

until num = 0;

writeln('Максимальная цифра, используемая в числе: ', maxDigit);
writeln('Количество использований максимальной цифры: ', maxCount);

end.