Составить циклический алгоритм или программу для вычисления произведения чисел от N до 1 (число N вводится с клавиатуры).

program pr;

var N,result,i:integer;

begin

readln(N);

result:=1;

for i:=1 to N do result:=result*i;

writeln(result);

end.