Помогите решить такое задание

Дано натуральное число N. Вычислить y=2*4*6 * ... (2n). Вводится число n. В цикле типа пока шаг равен 2, перебираются все числа от 2 до 2n, шаг равен 2, все числа перемножаются)

Uses crt;

var i, s, n:integer;

begin

s:=1; n:=0;

while (n<=0) do begin

writeln ('Введите неотрицательное число') ;

read (n) ;

end;

n:=n*2;

writeln ('Считаю все числа от 2 до ', n) ;

write ('1') ;

for i:=1 to n do begin

i:=i+1;

write ('*', i) ;

s:=s*i;

end;

writeln;

writeln ('Произведение = ', s) ;

end.

P. s. Программа написана на языке Pascal ABC. По всем вопросам обращаться в комментарии!