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