Помогите пожалуйста сделать программу по информатике

Ответ:

Изъяснение:

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 (xgt;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.