uses crt;
var a,z1,z2:real;
begin
clrscr;
write('Введите значение угла в градусах a=');
readln(a);
a:=a*pi/180;{перевод в радианы}
if (cos(a/2)=0)or(abs(sin(a/2)-cos(a/2))<0.00000001)
{если в знаменателе ноль, или абсолютное значение разности син и кос близко к нолю(точный ноль не получить)}
then writeln('Z1 не определено!')
else
begin
z1:=(2*sin(a/2)/cos(a/2))/(1-sqr(sin(a/2)/cos(a/2)));{считаем}
writeln('Z1=',z1:7:4,' ',-z1:7:4);
end;
if abs(sin(a))=1 then writeln('Z2 не определено!'){если под корнем в знаменателе ноль}
else
begin
z2:=sin(a)/sqrt(1-sqr(sin(a)));{считаем, получится то же, ибо и та и другая формулы, это формулы тангенся полного угла}
writeln('Z2=',z2:7:4,' ',-z2:7:4);
end;
readln
end.