Дано натуральное число n. вычислить y=2*4*) .сделать через цикл с ! !

var y,i,n:integer;
begin
readln(n);
y:=1;
for i:=1 to n do
y:=y*2*i;
writeln(y);
end.

Var n,i,x,x1:integer;

x:=0;

y:=1;

readln(n);

For i:=1 to n do

Begin

x:=x+2;

y:=y*x;

end;

Writeln('y=', y);

readln;

end.