program faktorial dalam pascal

program faktorial;
uses crt;
var
faktor:integer;
i,n:integer;
begin
clrscr;
write('masukkan bilangan:');
readln(n);
faktor:=1;
for i:=2 to n do
faktor:=faktor*i;
writeln('Faktorialnya adalah:',faktor);
readkey;
end.