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

Это совсем не то

а что нужно то?

программа считает произведение натуральных чисел от 1 до 6 с помощью цикла for. Если это совсем не то то вопрос был задан совсем не верно.

var

   p : integer := 1;

   n : integer := 6;

begin

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

   writeln(p);

end.