Program Lab8_22; uses crt;

const c=0.000372;

var y:real;
    i,x:byte;

Begin clrscr;
X:=0;

for i:=1 to 4 do
Begin
Inc(X,2);
Y:=Exp(0.73*Ln(X))+(3.42/(C*X))+Exp((1/3)*Ln(X+1));

Writeln(' Y[',i,']= ',Y:8:5);
end;

Readln;
end.