bahasa pemrograman pascal fungsi trigonometri

Program Fungsi_Trigonometri;
uses crt;
var a : integer;
    rad,gcos,gsin,tan,sec,cosec,cot:real;
const phi=3.14;
Begin
     clrscr;
     writeln;readln(a);
     clrscr;
     rad    := (a*phi)/180;
     gcos   := cos(rad);
     gsin   := sin(rad);
     tan    :=  gsin/gcos;
     sec    := 1/gcos;
     cosec := 1/gsin;
     cot    := gcos/gsin;
     writeln('           <<<<< Fungsi Trigonometri>>>>>');
     writeln('           ------------------------------');
     writeln('Sudut',a:8,' derajat sama dengan sudut',rad:10:5);
     writeln('Dan nilai dari :');
     writeln(' - Cosinus',a:8,' derajat         = ',gcos:10:5);
     writeln(' - Sinus',a:8,' derajat           = ',gsin:10:5);
     writeln(' - Tangen',a:8,' derajat          =',tan:10:5);
     writeln(' - Secant',a:8,' derajat          = ',sec:10:5);
     writeln(' - Cosecant',a:8,' derajat        = ',cosec:10:5);
     writeln(' - Cotangen',a:8,' derajat        = ',cot:10:5);
     readln;
End.