[chulkov]

Ребя столкнулся с проблемной задачей нужна ваша помощь. Вот задача:
Для заданного числа n расчитать произведение:

n!! = (1*3*5*...n) - если n нечетное
n!! = (2*4*6*...n) - если n четное

сделал ее через for to do вот так:

Код:

uses
  SysUtils;

var
s,p:real;
i,n:integer;
begin
write('N= ');
readln(n);
p:=1;
for i:=1 to n do
if(i mod 2) = (n mod 2) then
P:=p*i;
write ('n!!= ',p:3:0);
readln;

end.

помогите сделать тоже самое с помощью операторов while do и repeat until.