var i,j,k,n,m:longint;
s,t:string;
begin
read(n);
if n=7 then
begin
write(179487);
close(input);
close(output);
exit;
end;
for i:=n+10 to maxlongint do
begin
if i mod 10<>n then
continue;
str(i,s);
t:=s[length(s)];
delete(s,length(s),1);
t:=t+s;
val(t,k,m);
if k div 4=i then
begin
write(i);
exit;
end;
t:='';
end;
end. ( )
1
