Вычислить S=sin^2*x+1/y^4-e^x+z*cos^3*2x-tg*x(2/3) при значениях переменных x=-0.622 y=0.827 z=5.541- Pascal(Паскаль)

uses crt;
var x,y,z,s:real;
begin
clrscr;
x:=0.622;
y:=0.827;
z:=5.541;
s:=sqr(sin(2*x))+1/sqr(sqr(x))-exp(x)+z*sin(x)/cos(x)*(2/3);
write('S=',s:0:3);
readln
end.