Помогите,пожалуйста
найти произведение чисел от N до 1
паскаль abc

Вопрос школьника по предмету Информатика

Помогите,пожалуйста
найти произведение чисел от N до 1
паскаль abc

Ответ учителя по предмету Информатика

Var

   N:integer;

   P:real;

Begin

P:=1;

Write(‘N = ‘);

ReadLn(N);

For N:= N downto 2 do

    P:=P*N;

Write(‘P = ‘,P);

End.

Пример работы программы:

N = 13

P = 6227020800