Даны две пары чисел A,B и C,D. Если A*B>C*D, то вывести среднее арифметическое этих...

Question

Даны две пары чисел A,B и C,D. Если A*B>C*D, то вывести среднее арифметическое этих чисел, в противном случае среднее геометрическое

Answer 1

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