Помогите решить задачу в паскаль:

Question

Помогите решить задачу в паскаль:

---

Answer 1

var
  n, i: integer;
  s: longint := 1;

begin
  readln(n);
  for i := 1 to n do
    s := s * (i + 1); //или короче: s *= i + 1;
  writeln(s);
end.

Comments

:D

---

Смешно, дааа:)

Answer 2

Var i: integer; r: longint;
begin
readln(n); r:=1;
for i:=1 to n do
r:=r*(i+1);
writeln(r);
readln
end.