var n,m:longint;
i:byte;
s,st:string;
f1,f2:text;
const fi='PALNUM.INP';
fo='PALNUM.OUT';
function dx(n:longint):boolean;
var i:byte;
st:string;
begin
str(n,st);
for i:=1 to length(st) div 2 do
if st[i]<>st[length(st)-i+1] then exit(false);
exit(true);
end;
begin
assign(f1,fi);reset(f1);
assign(f2,fo);rewrite(f2);
repeat
readln(f1,n);
until (11<=n) and (n<=99);
while dx(n)=false do
begin
s:='';
str(n,st);
for i:=length(st) downto 1 do
s:=s+st[i];
val(s,m);
n:=n+m;
end;
writeln(f2,n);
close(f1);close(f2);
end.