Ответ:
Объяснение:
function stepen(x, n:real):real;
begin
stepen:=exp(n*ln(x));
end;
var
x, y, f:real;
begin
readln(x, y);
f:=0;
if (x>y) then f:=(x*x*x*x) + (y*y*y*y*y) else f:=stepen(x+y, 0.5);
// f:=stepen(x+y, 0.5); - возведение суммы вещественных чисел
// в степень 1/2 - вычисление квадратного корня
writeln(f);
end.