Question

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

Answer 1

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

Answer 2

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.

Answer 3

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