var a,b,c,d,e,i:longint;
begin
read(a);
for i:=1000 to a do
begin
b:=i mod 10;
c:=i div 10 mod 10;
d:=i div 100 mod 10;
e:=i div 1000;
if (b=d) and (c=e) and (i mod 2=1) then  writeln(i);
end;
end.
/**************************************************************
	Problem: 1737
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/