Напишите пожалуйста задачи в Паскале
z1 = 1 - (1/4 * sin(2a) ^ 2 + cos(2a)) 
z2 = cos(a) ^ 2 + cos(a) ^ 4

var  a,r,y: real;beginreadln(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.