Ответ:

Объяснение:

program FckngPower;

var

Res1, Res2, b, f, h, g, s, x, y : real;

Function Power (a, b : Real) : real;

begin

if a > 0

then Power := exp(b * ln(a))

else

if a < 0

then Power := exp(b * ln(abs(a)))

else

if b = 0

then Power := 1

else Power := 0;

end;

begin

x:=1; g:=1; y:=1; s:=1; b:=1; f:=1; h:=1;

Res1 := (Sqr(Abs(x-1)+2)+ Power(2*g,5/3))/(cos(x)+power(sin(y),36)+exp(-x*y))+(ln(power(s,9)/ln(x)));

Res2 := Power(2*b+cos(x), 1/9)+power(sin(y)*sin(y),5)-power(f,h);

end.