Дано натуральное число. Определить, какая цифра встречается в нём чаще-1 или 9.

Pascal

Varn, nine, one: integer;

begin

readln (n) ;

nine : = 0;

one : = 0;

while (n > 0) do

begin

if (n mod 10 = 1) then

inc (one)

else

if (n mod 10 = 9) then

inc (nine) ; n : = n div 10;

end;

if (one = nine) then

writeln ('Равны')

else

if (one > nine) then

writeln ('Единиц больше')

else

writeln ('Девяток больше') ;

end.