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

Елена в категроии Информатика, вопрос открыт 18.06.2018 в 20:12

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.