Program Menghitung Nilai Faktorial di Pascal

Program Menghitung Nilai Faktorial di Pascal, tanpa basa-basi langsung saja dah ane bagikan kodenya hehehe

Program Faktorial;
Uses Wincrt;
     Var i,n,x:integer;
Begin
      Writeln('Program Faktorial');
      Writeln('=================');
      Writeln;
      Write('Masukkan Nilai Faktorial: ');Readln(n);
      Writeln;
               if (n<=0) then
            Writeln('Hasil Faktorial: ',1)
               else
            Begin
                x:=1;
                For i := 1 to n do
                x:=x*i;
            Writeln('Hasil Faktorial: ',x);
      End;
End.


Selamat mencoba !!
Pengunjung yang baik selalu meninggalkan komentarnya !!