Используя цикл с параметром вычислить n!

Program Problem1; { Вычисление факториала числа n! }
uses WinCrt; 
var 
          n, f, i : longint; 
begin 
write("Введите натуральное число "); readln(n);
f := 1; 
if n <> 0 then for i := 1 to n do f := f*i; 
writeln("Факториал числа ", n, " равен ", f) 
end.

также можно сделать так:
Program Problem1a; 
uses WinCrt;
var 
n, i, f : longint;
begin 
write("Введите натуральное число "); readln(n); 
f := 1; 
if n <> 0 then for i := n downto 1 do f := f*i;
writeln("Факториал числа ", n, " равен ", f) 
end.