Д.з. по информатике для уезжающих-приезжающих

Решите задачу двумя способами: с использованием цикла с параметром и одного из двух других типов цикла. Дано натуральное число N. Вычислить произведение первых N сомножителей: P=2/3*4/5*6/7*...*(2N)/(2N+1)

Опирайтесь на пример, решённый на уроке.

Решение задачи на нахождение результата:
 S=1-1/2+1/4-1/8+...+(-1)^N*1/2^N

 Используется цикл с постусловием:

 program summ;
 var S: real; N, i: integer; a: real;
 begin write ('N - ? ');
 readln (N);
 a:=1; S:=0; i:=0;
 repeat i:=i+1; S:=S+a; a:=a/(-2);
 until i=N;
 write ('S = ', S)
 end.

 Используется цикл с параметром:

 program summ;
 var S: real; N, i: integer; a: real;
 begin write ('N - ? ');
 readln (N);
 a:=1; S:=0;
 for i:=1 to N do
 begin S:=S+a; a:=a/(-2) end;
 write ('S = ', S)
 end.