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

Var

nbsp; n: Integer;

nbsp; min,max: Byte;

BEGIN

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

Readln(n);

max:=0;

min:=9;

While ngt;0 do

begin

nbsp; If n mod 10gt;max Then max:=n mod 10;

nbsp; If n mod 10lt;min THen min:=n mod 10;

nbsp; n:=n div 10;

end;

Writeln(MAX=,max);

Writeln(MIN=,min);

END.