program While6;
var
Rez :Real;
N :Integer;
begin
Write('Введите N: ');
Readln(N);
Rez:=1;
while N>=2 do
Rez:=Rez*N;
N:=N-2;
end;
Writeln('Двойной факториал равен: ',Rez);
end.
