Помоги пожалуйста составить программу ,произведение целых чисел от 1 до n.

1

Ответы и объяснения

2013-02-15T19:31:56+04:00

var i,n,pr:integer;
begin
pr:=1;
read(n);
for i:=1 to n do
pr:=pr*i;
writeln(pr);
end.