Tugas Faktorial

Berikut ini adalah script pascal dari suatu faktorial.
script ini digunakan untuk rumus N!/(N-R)!*R!
ini scriptnya....

Program menghitung_faktorial;
uses wincrt;

var
   hasil,fak,c,n,nr,r,f1,f2,f3:real;
   i:integer;

   procedure faktorial(var fak,hasil:real);
   begin
        i:=1;
        hasil:=1;
        while i<= fak do
        begin
             hasil:= hasil*i;
             i:=i+1;
        end;
        writeln(hasil:10:0);
   end;

   begin
        gotoxy(15,1);
        writeln('Program perhitungan Kombinasi pada Faktorial');
        gotoxy(30,2);
        writeln('M. Ali Rusdi');
        gotoxy(5,3);
        write('masukkan nilai N = ');readln(n);
        gotoxy(5,4);
        write('masukkan nilai R = ');readln(r);
        nr:= n-r;
        gotoxy(5,5);
        writeln('NR adalah = ',nr:0:0);

        gotoxy(5,7);
        write('faktorial dari N =');
        faktorial(n,f1);
        gotoxy(5,8);
        write('faktorial dari R =');
        faktorial(r,f2);
        gotoxy(5,9);
        write('faktorial dari N-R =');
        faktorial(nr,f3);
        c:=f1/(f3*f2);
        gotoxy(8,10);
        write('N!');
        gotoxy(5,11);
        write('_________ =',c:10:0);
        gotoxy(5,12);
        write('(N-R)!*R!');
   end.

dan ini adalah lay out dari script di atas: