Программа получает с клавиатуры 4 числа, вывести на экран сумму наибольшего чисел из пары, и произведение наименьших из пары. 100

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

begin
  var a:=ReadSeqReal('Введите 4 числа:',4).OrderBy(t->t).ToArray;
  Writeln('Сумма двух наибольших равна ',a[2]+a[3]);
  Writeln('Произведение двух наименьших равно ',a[0]+a[1]);
end.

Пример
Введите 4 числа: 3.4 11.7 -3.73 2.18
Сумма двух наибольших равна 15.1
Произведение двух наименьших равно -1.55