Вычисления по формуле

Program Cos;
uses crt;
var a,z1,z2:real;
begin
clrscr;
write('a=');
readln(a);
if cos(a)=0 then writeln('Z1 не определено!')
else
 begin
  z1:=1/sqrt(1+sqr(sin(a)/cos(a)));
  writeln('Z1=',z1:7:4,'  ',-z1:7:4);
 end;
if sin(a)=0 then writeln('Z2 не определено!')
else
 begin
  z2:=(cos(a)/sin(a))/sqrt(1+sqr(cos(a)/sin(a)));
  writeln('Z2=',z2:7:4,'  ',-z2:7:4);
 end;
readln
end.

Program Cos;//название программы-не обязательно
uses crt;//модуль для работы с экраном, клавиатурой и звуком, в данной задаче не обязательно
var a,z1,z2:real;//раздел объявления переменных, угол и значения функций
begin
clrscr;//если модуль подключен, очищаем экран, нет-это убрать
write('a=');//программа просит ввести значение угла
readln(a);//вводим, нажимаем Enter
if cos(a)=0 then writeln('Z1 не определено!')//если кос.=0, тангенс не определен
else
 begin
  z1:=1/sqrt(1+sqr(sin(a)/cos(a)));//вычисляем по формуле sqrt-корень квадратный, sqr-квадрат
  writeln('Z1=',z1:7:4,'  ',-z1:7:4);//выводим результат, имя, 7 позиций под первое число, 
                                            //  4 знака после запятой, 2 пробела, второе имя и число
 end;
if sin(a)=0 then writeln('Z2 не определено!')//тоже со второй функцией
else
 begin
  z2:=(cos(a)/sin(a))/sqrt(1+sqr(cos(a)/sin(a)));
  writeln('Z2=',z2:7:4,'  ',-z2:7:4);
 end;
readln//задержка для просмотра результата до нажатия Enter
end.