{* Самая большая цифру числа *}

Unit PAS37503;
Interface
Implementation
Begin
 writeln('Найти самую большую цифру числа(цикл с предусловием ).');
End.

Program pas37503;

Uses pas37503.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x : integer; { анализируемое число }
  n : byte; { аккумулятор максимальной цифры }
Begin
  write ('Введите число от 1 до 30000: ');
  read (x);
  n := 0; { кладем заведомо малое значение }
  While (x  0) Do
  Begin
    If (n < (x Mod 10)) Then
    Begin
      n := x Mod 10; { да, меняем }
    End;
    x := x Div 10; { обрезаем }
  End;
  writeln; {* Пропускаем одну строку *}
  writeln ('Самая большая цифра твоего числа это ', n);
  writeln ('А теперь нажми ЕНТЕР');
  readln; {* Приостановка программы. Ожидание Enter *}
End.