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.