Program Lab8_22; uses crt;

const c=0.000372;

var y:real;
    i,x:byte;

Function xPow(x:real; n:real):real;
var pow:real;
    k:integer;
Begin
if (X < 0) then Pow:=(-1)*Exp(N*Ln(Abs(X)))
          else if (X > 0) then Pow:=Exp(N*Ln(Abs(X)))
                           else xPow:=0;

K:=Round(N);
if not Odd(K) then Pow:=Abs(Pow);
if (N = 0) then Pow:=1;

xPow:=Pow
end;

Begin clrscr;
X:=0;

for i:=1 to 4 do
Begin
Inc(X,2);
Y:=xPow(X,0.73)+(3.42/(C*X))+xPow((x+1),(1/3));
Writeln(' Y[',i,']= ',Y:8:5);
end;

Readln;
end.