Найти n!!(двойной факториал) числа n (1<=n<=30), не используя цикл for и условный оператор - Pascal(Паскаль)

var n,i,j,m,k:integer;
y:real;
begin
write('n=');
readln(n);
j:=n mod 2;
y:=1;
i:=1;
while i<= n div 2 +j do
begin
y:=y*(2*i-j);
writeln(2*i-j:3, Trunc(y):5);
i:=i+1;
end;
writeln(n, '!!=', Trunc(y));
Readln;
end.