Написать программу для расчета по двум формулам.

begin
  Writeln('Задайте углы a и b в радианах');
  var (a,b):=ReadReal2;
  var z1:=(Sin(a)+Cos(2*b-a))/(Cos(a)-Sin(2*b-a));
  var z2:=(1+Sin(2*b))/Cos(2*b);
  Writeln('z1=',z1,NewLine,'z2=',z2)
end.


Задайте углы a и b в радианах
0.521 -1.18
z1=-0.416444539436704
z2=-0.416444539436704