Pascal ABC. Дано натуральное число "n". Составьте программу которая выводит максимальную цифру этого числа.

В программе в цикле находится остаток от деления на десять числа n. Максимальное число до входа в цикл задается равным нулю. Если остаток больше чем переменная max, то переменная max становится равной остатку. Число n делится нацело на 10 и цикл повторяется.

program max_digits;

var n, max: integer;

begin

writeln(\'Введите натуральное число\');

Readln(n);

max:= 0;

while n <> 0 do

begin

if n mod 10 > max then max:= n mod 10;

n:=n div 10

end;

writeln(\'Максимальная цифра: \',max)

end.