Напишите в паскале z1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a)) z2 = cos(a) ^ 2 + cos(a) ^ 4

Var  a,r,y: real;
begin
readln(a);  
r:= (1 - (1/4 * sqr(sin(2*a)) + cos(2*a)));
 y:= sqr(cos(a)) + sqr(cos(a))*sqr(cos(a)); 
writeln(r,y);
end.