написанные программы / лаба № 1 с отчетом / YZ

program exp;
var
y1,y2,z1,z2,a,b,x:real;
begin
a:=3.5;
b:=0.72;
x:=0.62;
y1:=sqr(sqrt(sqr(a)+a*sqrt(sqr(a)-sqr(b)))-sqrt(sqr(a)-a*sqrt(sqr(a)-sqr(b))))/(2*sqrt(a*a*a*b)*(sqrt(a/b)+sqrt(b/a)-2));
y2:=sqr(sqrt(a)+sqrt(b))/(a-b);
z1:=1-1/4*sqr(sin(2*x))+cos(2*x);
z2:=sqr(cos(x))+sqr(cos(x))*sqr(cos(x));
writeln('y1=',y1:2:6);
writeln('y2=',y2:2:6);
writeln('z1=',z1:2:6);
writeln('z2=',z2:2:6);
readln;
end.