Составить блок-схему к данному коду

Var

Min, Max, i, m, n:Integer

Begin

Readln (n) ;

max:=-maxint-1;

min:=maxint

For I:=1 to n do begin

ReadLn (m) ;

If (m>max) then max:=m;

If (m end;

Writeln (max,' ', min) ;

End.

Begin

var n : = ReadlnInteger ('n = ') ;

var max : = integer. MinValue;

var min : = integer. MaxValue;

for var i : = 1 to n do

begin

var m : = ReadlnInteger ($'m{i} = ') ;

if (m > max) then max : = m;

if (m < min) then min : = m;

end;

Writeln ($'max = {max}, min = {min}') ;

end.