Mencari Faktorial

program forlopping;

uses crt;
var
   i,j :integer;
   fac :integer;

begin
     clrscr; fac:=1;
     write('input value: ');
     readln(i);
     for j:=i downto 1 do
         fac:=fac*j;
     writeln('The result is: ', fac);
     readln;
end.