Вводится 6 чисел, найти среди них максимальное и минимальное, и вывести их сумму.

var a,b,c,d,e,f,mx1,mx2,mx,mn1,mn2,mn:real;
begin
writeln('Введите 6 чисел');
read(a,b,c,d,e,f);
if a>b then mx1:=a else mx1:=b;
if c>mx1 then mx1:=c;
if d>e then mx2:=d else mx2:=e;
if f>mx2 then mx2:=f;
if mx1>mx2 then mx:=mx1 else mx:=mx2;
if a<b then mn1:=a else mn1:=b;
if c<mn1 then mn1:=c;
if d<e then mn2:=d else mn2:=e;
if f<mn2 then mn2:=f;
if mn1<mn2 then mn:=mn1 else mn:=mn2;
writeln('Минимальное=',mn:0:2,' максимальное=',mx:0:2);
write('Их сумма=',mn+mx:0:2)
end.

var
a1,a2,a3,a4,a5,a6,max,min,sum:integer;
begin
read(a1,a2,a3,a4,a5,a6);
if (a1>=a2) and (a1>=a3) and (a1>=a4) and (a1>=a5) and (a1>=a6) then
max:=a1
else
If (a2>=a1) and (a2>=a3) and (a2>=a4) and (a2>=a5) and (a2>=a6) then
max:=a2
else
If (a3>=a1) and (a3>=a2) and (a3>=a4) and (a3>=a5) and (a3>=a6) then
max:=a3
else
If (a4>=a1) and (a4>=a3) and (a4>=a2) and (a4>=a5) and (a4>=a6) then
max:=a4
else
If (a5>=a1) and (a5>=a3) and (a5>=a4) and (a5>=a2) and (a5>=a6) then
max:=a5
else
If (a6>=a1) and (a6>=a3) and (a6>=a4) and (a6>=a5) and (a6>=a2) then
max:=a6;
//
 
if (a1<=a2) and (a1<=a3) and (a1<=a4) and (a1<=a5) and (a1<=a6) then
min:=a1
else
If (a2<=a1) and (a2<=a3) and (a2<=a4) and (a2<=a5) and (a2<=a6) then
min:=a2
else
If (a3<=a1) and (a3<=a2) and (a3<=a4) and (a3<=a5) and (a3<=a6) then
min:=a3
else
If (a4<=a1) and (a4<=a3) and (a4<=a2) and (a4<=a5) and (a4<=a6) then
min:=a4
else
If (a5<=a1) and (a5<=a3) and (a5<=a4) and (a5<=a2) and (a5<=a6) then
min:=a5
else
If (a6<=a1) and (a6<=a3) and (a6<=a4) and (a6<=a5) and (a6<=a2) then
min:=a6;
writeln(min);
writeln(max);
sum:=min+max;
writeln(sum);
readln();
end.

var a,b,c,d,e,f,mx1,mx2,mx,mn1,mn2,mn:real;
begin
writeln('Введите 6 чисел');
read(a,b,c,d,e,f);
if a>b then mx1:=a else mx1:=b;
if c>mx1 then mx1:=c;
if d>e then mx2:=d else mx2:=e;
if f>mx2 then mx2:=f;
if mx1>mx2 then mx:=mx1 else mx:=mx2;
if a<b then mn1:=a else mn1:=b;
if c<mn1 then mn1:=c;
if d<e then mn2:=d else mn2:=e;
if f<mn2 then mn2:=f;
if mn1<mn2 then mn:=mn1 else mn:=mn2;
writeln('Минимальное=',mn:0:2,' максимальное=',mx:0:2);
write('Их сумма=',mn+mx:0:2)
end.