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

Предыдущий
вопрос Следующий
вопрос

program MostFrequentDigit;

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

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

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

while temp > 0 d
begi
if temp mod 10 = 1 the
digit1 := digit1 +
else if temp mod 10 = 9 the
digit9 := digit9 + 1;

end;

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

end.