Question

напишите программу. с помощью оператора цикла for рассчитайте произведение натуральных чисел от 1 до n. n=6​

Answer 1

var

   p : integer := 1;

   n : integer := 6;

begin

   for var i := 1 to n do p *= i;

   writeln(p);

end.