program lab1v4;
uses wincrt;
var x,y,z,w,i:real;

begin
writeln('Введіть х');
read(x);
if x<>0 then
begin
y:=(sin(3*x)/cos(3*x))*sin(2*x)+3.4*x*x*x-2.3*x;
z:=arctan(5/8)+sin(pi/8)/cos(pi/8)-5*cos(3.2*x);
w:=1/5*ln(exp(3*y)/(ln(abs(2*x))+2)+1);
i:=sin(pi/2);
writeln('x=',x:8:2);
writeln('y=',y:12:3);
writeln('z=',z:10:4);
writeln('w=',w:9:2);
writeln('i-',i:2:1);
end else writeln('Х не може бути рівним 0');
end.