Дано натуральное число. Определить какая цифра встречается чаще: 0 или 9

program zz1;

var n, k1, k2, b, m:integer;

begin

read (n); / /вводим заданное n

while n0 do / /повторяем цикл пока исходное число не станет 0

begin

m:=n mod 10; / /получаем последнюю цифру

if m=0 then k1:=k1+1; / /считаем количество 0

if m=9 then k2:=k2+1; / /считаем количество 9

n:=n div 10; / /выбрасываем эту цифру из числа

end;

if k1=k2 then write ('в исходном числе больше цифр 0 и 9 одинаково') else

if k1>k2 then write ('в исходном числе больше цифр 0') else write ('в исходном числе больше цифр 9'); / / выводим ответ на экран

end.