Информатика Pascal помогите!!

Question

Информатика Pascal помогите!!

---

Answer 1

Var   y, i, n: integer;

begin
   writeln('Введи n');
   readln(n);
   y := 1;
   for i := 1 to n do
      y := y *( 2 * i);
   writeln(y);
end.