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