function dx(x:longint):boolean;
var y,z:longint;
begin
y := 0;
z := x;
while(x>0) do
begin
y := y * 10 + x mod 10;
x := x div 10;
end;
if y=z then exit(true);
exit(false);
end;
var n : longint;
begin
readln(n);
if dx(n) then writeln('YES')
else writeln('NO');
readln
end.