Блок-схема перебора елементов массива

var a:array [1..4] of integer;min,max:longint;
begin
readln(a[1],a[2],a[3],a[4]);
if (a[1]>a[2])and(a[1]>a[3])and(a[1]>a[4]) then max:=a[1]+a[2]+a[3]+a[4]
else if (a[2]>a[1])and(a[2]>a[3])and(a[2]>a[4]) then max:=a[1]+a[2]+a[3]+a[4]
else if (a[3]>a[1])and(a[3]>a[2])and(a[3]>a[4]) then max:=a[1]+a[2]+a[3]+a[4]
else if (a[4]>a[1])and(a[4]>a[3])and(a[4]>a[2]) then max:=a[1]+a[2]+a[3]+a[4];
if (a[1]<a[2])and(a[1]<a[3])and(a[1]<a[4]) then min:=a[1]*a[2]*a[3]*a[4]
else if (a[2]<a[1])and(a[2]<a[3])and(a[2]<a[4]) then min:=a[1]*a[2]*a[3]*a[4]
else if (a[3]<a[1])and(a[3]<a[2])and(a[3]<a[4]) then min:=a[1]*a[2]*a[3]*a[4]
else if (a[4]<a[1])and(a[4]<a[3])and(a[4]<a[2]) then min:=a[1]*a[2]*a[3]*a[4];
writeln(min,' ',max);
end.

var
    arr: array[1..4] of byte;
    max_num, max_index,mix_num, mix_index: byte;
    i,m: byte;
    sum, proiz, q:longint;
begin
    sum:=0;
    proiz:=1;
    for i := 1 to 4 do begin
        readln(q);
        arr[i]:=q;
        sum:=sum+q;
        proiz:=proiz*q;
    end;
 
    max_index := 1;
    max_num := arr[1];
    mix_index := 1;
    mix_num := arr[1];
 
    for i := 2 to 4 do  begin
        if arr[i] > max_num then begin
            max_index := i;
            max_num := arr[i];
        end;
      if arr[i] < mix_num then begin
            mix_index := i;
            mix_num := arr[i];
        end;
     end;
 
   arr[max_index]:=sum;
    arr[mix_index]:=proiz;
    for i:=1 to 4 do
    write(arr[i],' ');
 
end.