PROGRAM FAKTORIAL DENGAN REKURSI

Program faktorial_pascal_rekursi;

uses wincrt;

function Faktorial(a:integer):longint;

   begin

     if (A=1)then

     Faktorial:=1

   else

     Faktorial:=a*faktorial(a-1);

   end;

var

  x:integer;

begin

  writeln('Pogram Faktorial');

  writeln('================');

  writeln;

  write('Masukkan nilai faktorial: ');readln(x);

  writeln('Hasil faktorialnya: ',faktorial(x));

end.