Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки
P.S
писать программу на базе PaskalABC.NET

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m1:=ReadSeqReal(Первая тройка:,3).Max;
  var m2:=ReadSeqReal(Вторая тройка:,3).Max;
  Writeln(Среднее арифметическое максимумов равно ,(m1+m2)/2)
end.

Пример
Первая тройка: 5.2 7.4 6.1
Вторая тройка: -4.2 5 7
Среднее арифметическое максимумов равно 7.2

Вроде как-то так:
var a1,a2,a3,a4,a5,a6:real;
function sr(a1,a2,a3:real):real;
begin
if ((a1lt;=a2) and (a1gt;=a3)) or ((a1lt;=a3) and (a1gt;=a2)) then sr:=a1
else
if ((a3lt;=a2) and (a3gt;=a1)) or ((a3lt;=a1) and (a3gt;=a2)) then sr:=a3
else
sr:=a2;
end;
begin
write(Введите две тройки чисел:);
readln(a1,a2,a3,a4,a5,a6);
writeln(Среднее арифметическое 2-х средних чисел =,(sr(a1,a2,a3)+sr(a4,a5,a6))/2:0:4);
end.