Перемножить все число от 1 до N - Free Pascal

как обозначить каждое число от 1 до N, то есть (for i:=1 to n do) например нужно перемножить все число от 1 до N.

Листинг программы

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

Объяснение кода листинга программы

В данном коде происходит перемножение всех чисел от 1 до N.

Переменная p инициализируется значением 1.
Запускается цикл for, который выполняется от 1 до N.
Внутри цикла значение переменной p умножается на текущее значение i.
После завершения цикла, значение переменной p будет содержать результат перемножения всех чисел от 1 до N.