Даны две тройки вещественных чисел. В каждой тройке все числа различные. Найти среднее арифметическое средних чисел каждой тройки (средним назовем такое число в тройке, которое больше наименьшего из чисел данной тройки, но меньше наибольшего) — Pascal(Паскаль)

var
   a1,a2,a3,b1,b2,b3:real;
begin
     write('a1=');readln(a1);
     write('a2=');readln(a2);
     write('a3=');readln(a3);
     write('b1=');readln(b1);
     write('b2=');readln(b2);
     write('b3=');readln(b3);
     if (a1>a2) and (a2>a3) or (a3>a2) and (a2>a1) then a1:=a2 else
     if (a1>a3) and (a3>a2) or (a1>a3) and (a3>a2) then a1:=a3;
     if (b1>b2) and (b2>b3) or (b3>b2) and (b2>b1) then b1:=b2 else
     if (b1>b3) and (b3>b2) or (b1>b3) and (b3>b2) then b1:=b3;
     writeln('(',a1,'+',b1,')/2=',(a1+b1)/2:4:2);
readln;
end.