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

Это же PascalABC.NET, а не древний Турбо или Фри )))

Тут достаточно трех строчек (вообще-то и в одну можно, но будет витиевато)

Вроде как-то так:var   a1,a2,a3,a4,a5,a6:real; function sr(a1,a2,a3:real):real; begin   if ((a1<=a2) and (a1>=a3)) or ((a1<=a3) and (a1>=a2)) then sr:=a1 else   if ((a3<=a2) and (a3>=a1)) or ((a3<=a1) and (a3>=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.

// 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