Найдите произведение натуральных чисел от 1 до n ( с помощью алгоритма )

Question

Найдите произведение натуральных чисел от 1 до n

( с помощью алгоритма )

Answer 1

var prod,i,N:int;

begin

   readln(N);

   prod:=1;

   for i:=1 to N do

      prod:=prod*i;

   writeln(prod)

end.