Составить блок-схему к данному коду
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.