Произведение (I уровень)

Условие:
Дано натуральное число N. Вычислить произведение первых N сомножителей.
(2/1)*(2/3)*(4/3)*(4/5)*…

Решение:
Идея решения. В цикле прибавляем 2 поочередно к числителю (переменная Х) или к знаменателю (переменная Y), накапливая произведение ( переменная Res).

var
res:real;
i,n,x,y, flag: integer;
begin
write('n=...');
readln(n);
res:=1;
flag:=0;
x:=2;
y:=1;
for i:=1 to n do
begin
  res:=res*x/y;
  if flag=0
  then y:=y+2
  else x:=x+2;
  flag:=1-flag;
end;
writeln(res);
end.