Написать программу на Free Pascal!Дано натуральное число N. Вывести на экран все его цифры, определить самую большую из них и её номер в этом числе (отсчёт номеров цифр – от низших разрядов, справа налево), вывести на экран номер этой цифры.

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

program FindMaxDigit;

var
N, number, maxDigit, maxDigitPosition, position: integer;

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

maxDigit := 0;
maxDigitPosition := 0;
position := 0;

while N > 0 do
begin
number := N mod 10;
writeln('Цифра: ', number);

end;

writeln('Наибольшая цифра: ', maxDigit);
writeln('Номер цифры в числе: ', maxDigitPosition);
end.