Составьте программу определения наибольшей цифры в записи данного натурального числа.

Var

  n: Integer;

  min,max: Byte;

BEGIN

Writeln('Введите число: ');

Readln(n);

max:=0;

min:=9;

While n>0 do

begin

  If n mod 10>max Then max:=n mod 10;

  If n mod 10<min THen min:=n mod 10;

  n:=n div 10;

end;

Writeln('MAX=',max);

Writeln('MIN=',min);

END.