решить в турбо паскале
z1=sina^4*a-1+2sin^*2a+cos^*2a
z2=-cos^4*a

var  a,z1,z2:real;begin  Write('a='); Readln(a);  z1:=Sin(Sqr(a*a))*a-1+2*sqr(Sin(2*a))+Sqr(Cos(a));  z2:=-Sqr(Sqr(Cos(a)));  Writeln('z1=',z1,', z2=',z2);  Readlnend.