Program Rumus Tan (A+B) (Pascal)

Berikut sintaks program rumus tan (a+b) :

program Rumus_Tangen_A_dan_B;

uses crt;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n:real;

begin
     clrscr;
     gotoxy(25,2);write('     Program Tan (a+b)     ');
     gotoxy(25,3);write('***************************');
     gotoxy(25,5);write('Masukkan nilai sudut a : ');
     gotoxy(25,6);write('Masukkan nilai sudut b : ');
     gotoxy(50,5);readln(a);
     gotoxy(50,6);readln(b);

     c:=a/180*pi;
     d:=b/180*pi;

     e:=sin(a)*cos(b);
     f:=cos(a)*sin(b);
     g:=cos(a)*cos(b);
     h:=sin(a)*sin(b);

     i:=c+d;
     j:=e-f;

     k:=i/j;

     gotoxy(22,8);write('Hasil dari tan (a+b) adalah ' ,k:2:3);readln;
end.


Selamat mencoba.