построить блок схему.

[димон4ик_]

1. Дано целое число n, удовлетворяющее условию 0<модуль n<=2*10 ^9. Найти максимальную цифру в записи этого числа.
var
N,d:LongInt;
i,lng,mx,q:byte;
BEGIN
write('Enter N: ');
readln(N);
lng:=1+TRUNC(Ln(Abs(N))/Ln(10));
d:=ROUND(Exp((lng-1)*Ln(10)));
mx:=0;
for i:=1 to lng do
begin
q:=N div d;
if q>mx then mx:=q;
N:=N mod d;
d:=d div 10;
end;
writeln('MAX= ',mx);
readln
END.