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

необходимо вычислить n! (факториал) либо просто n

язык программирования Pascal?

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