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

Question

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

Answer 1

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

Answer 2

Var N, a:int64;

begin

write('Введите N: ');

readln(N);

a := 1;

for var i := N to 1 do

a := a * N;

writeln('Произведение чисел от 1 до ', N, ' = ', a);

end.

Comments

благодарю,но учитель сказала именно от n до 1, мол, в обратном порядке