Дано целое число N (> 0). Если N — нечетное, то вывести произведение 1•3•…•N; если N — четное, то вывести произведение 2•4•…•N. Чтобы избежать целочисленного переполнения, вычислять это произведение с помощью вещественной переменной и выводить его как вещественное число — Pascal(Паскаль)

Uses
 CRT;
Var
 c,pr:integer;
 i,n:integer;
begin
ClrScr;
repeat
readln(n);
until n>0;
if n mod 2<>0 then
begin
i:=1;
pr:=1;
while i<=n do
begin
pr:=pr*i;
writeln(i:3);
i:=i+2;
end;
writeln('Pr:=',pr);
end
else
begin
c:=1;
i:=2;
 while i<=n do
  begin
   c:=c*i;
   write(i:3);
   i:=i+2;
  end;
  writeln('c:=',c);
  end;
  readkey
end.