Program Facktorial Pada Pascal

Soal

Buatlah Program menghitung nilai facktorial menggunakan pascal!

Listing Program

program faktorial;
uses crt;
var
 i,n : integer;
 fact: integer;
begin
clrscr;
 write('masukkan angka : ');
 readln(n);
 fact:=1;
  for i:=1 to n do
   fact := fact*i;
   writeln(n,'! : ',fact);
 readln;
end.

Output Program