Скласти програму обчислювання функции ; s=sin^3t + cosz^3 ln/x/ / e^-у при t = 0.7 z= -1.9 y1= -7.2 y2= 1.5 y3= 4.1 x1= 6,3 x2= -10 x3= -3

Var t,x,y,z,q,s:real;
begin
t:=0.7; z:=-1.9;
q:=sin(t);
y:=-7.2; x:=6.3;
s:=q*q*q+cos(z*z*z)*ln(abs(x))/exp(-y);
writeln('s1 = ',s);
y:=1.5; x:=-10;
s:=q*q*q+cos(z*z*z)*ln(abs(x))/exp(-y);
writeln('s2 = ',s);
y:=4.1; x:=-3;
s:=q*q*q+cos(z*z*z)*ln(abs(x))/exp(-y);
writeln('s3 = ',s);
end.

Результат:
s1 = 0.268513472402621
s2 = 8.92280608564129
s3 = 55.8685175541082