Задано четыре числа: a,b,c,d .Требуется разбить их на две пары,чтобы сумма произведений в этих парах была максимальна
Например,если заданы числа 2,3,4 и 5, то оптимально разбить их на пары (2,3) и (4,5),в этом случае искомая сумма равна 2x3+4x5=26.

Формат входных данных
На вход подаются четыре числа: a.b.c и d.Все числа по модулю не превышают 1000..

Формат выходных данных.
Выведите искомую максимальную сумму.

Примеры
стандартный ввод
2 3 4 5
стандартный вывод
26

var a: array[1..4] of integer;    i,j: integer;begin   for i:=1 to 4 do read(a[i]);   for i:=1 to 3 do   for j:=i+1 to 4 do   if a[i]<a[j] then swap(a[i],a[j]);   writeln(a[1]*a[2]+a[3]*a[4]);end.11 6 5 19239

var a,b,c,d,s:integer;beginreadln(a,b,c,d);s:=a*b+c*d;if a*c+b*d>s then s:=a*c+b*d;if a*d+b*c>s then s:=a*d+b*c;writeln(s);// можно вывести полученные пары чисел:if s=a*b+c*d then writeln('(',a,',',b,') и (',c,',',d,')') else if s=a*c+b*d then writeln('(',a,',',c,') и (',b,',',d,')')  else writeln('(',a,',',d,') и (',b,',',c,')')end.Пример:2 3 4 526(2,3) и (4,5)