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

//PascalABC.NET 3.2 сборка 1318Var  a,b,c,d:real;beginreadln(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.Пример ввода:1234Пример вывода:2.21336383940064