program MostFrequentDigit;

var
number, digit1, digit9, temp, maxCount: integer;

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

digit1 := 0;
digit9 := 0;
temp := number;

while temp > 0 do
begin
if temp mod 10 = 1 then
digit1 := digit1 + 1
else if temp mod 10 = 9 then
digit9 := digit9 + 1;

end;

if digit1 > digit9 then
writeln('Цифра 1 встречается чаще в числе ', number)
else if digit9 > digit1 then
writeln('Цифра 9 встречается чаще в числе ', number)
else
writeln('Цифры 1 и 9 встречаются одинаковое количество раз в числе ', number);

end.