var 
	n,m:integer;
begin
	n:=0;
	for m:=1 to 999 do
		if (m div 100=3) or ((m-(m div 100)*100) div 10=3) or (m mod 10=3) then
			begin
				writeln(m);
				n:=n+1;
			end;
	writeln(n);
end.
/**************************************************************
	Problem: 1056
	User: admin
	Language: Pascal
	Result: Runtime Error
****************************************************************/