﻿Program Peritoi;
var i,a :integer;
Begin 
i:=1;
a:=i;
	While i<20 do
	begin
		a:=a*i;
		write(a,' ');
		i:=i+2;
	end;
end.	