Решить в турбо паскале 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);
  Readln
end.