Найти произведение чисел от n до 1 паскаль abc

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.

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