Даны две пары чисел a,b и c,d. если a*b> c*d, то вывести среднее арифметическое этих чисел, в противном случае среднее

//PascalABC.NET 3.2 сборка 1318

Var
  a,b,c,d:real;
begin
readln(a,b,c,d);
if a*b>c*d then writeln((a+b+c+d)/4) else writeln(power(a*b*c*d,1/4));
end.

Пример ввода:
1
2
3
4
Пример вывода:
2.21336383940064