TUGAS program pascal Pemfaktoran

program M3TUGAS6Fak;
    {Program ini menghitung 0! melalui 170!}
uses crt;
var
  i, x : integer;
  fak : real;   
                  

begin
    clrscr;
    write('Masukan Biilangan bulat sembarang yang akan diproses: ');
    readln (x);
    fak:=1;

for i:=1 to x do  {perintah looping}
                
   fak :=fak*i;
   writeln('Hasil Perhitungan Faktorialnya Adalah : ',fak:2:0);

readln;

end.