Faktorial ^.^

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(26,15);
        writeln('MUCHAMAD ALIF ROMADHONI');
        gotoxy(5,3);
        write('PLEASE  Insert  N = ');readln(n);
        gotoxy(5,4);
        write('PLEASE  Insert  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);
        write('Hasilnya adalah =',c:10:0);
       
   end.

CREATED BY, M. Alif Romadhoni