var i,k,n,p:integer;
begin
writeln('введите N,0<n<=10 ');
readln(n);
p:=1;
if n mod 2=0 then k:=2 else k:=1;
i:=n;
while i>=k do 
begin
p:=p*i;
writeln(i,'  ',p);
i:=i-2;
end;
write('Ответ:=',p);
end.