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.