программа по циклическому алгоритму через FOR

[АлександрFRONT]

Помогите пожайлуста написать программу по циклическому алгоритму на Паскале .Заранее спасибо.

Вывести на екран таблицу sіn(x),cos(x),tg(x),ctg(x) при изменении аргумента от 0° до 180° с шагом 10° . В программе предсказать невозможность вычесления tg(90°),ctg(0°),ctg(180°

[alex_fcsm]

uses crt;
const rad=57.18;
var x,y:real;
    i:integer;

begin
clrscr;
writeln('deg    cos       sin        tg         ctg ');
for i:=0 to 18 do
 begin
  write(i*10:3);
  write(cos(i*10/rad):10:4);
  write(sin(i*10/rad):10:4);
 if (i<>9) then write(sin(i*10/rad)/cos((i*10/rad)):10:4) else write('   ------');
 if (i<>0) and (i<>18) then write(cos(i*10/rad)/sin((i*10/rad)):10:4) else write('    ------');
  writeln;
 end;

end.