var s:longint;
　　function aa(a:longint):boolean;
　　var c:array[1..10] of integer;
　　 b,s,j,k,i:integer;
　　begin
　　b:=a;
　　i:=11;
　　while a>0 do
　　begin
　　i:=i-1;
　　 c[i]:= a mod 10;
　　 a:=a div 10;
　　end;
　　j:=0;
　　for k:=10 downto i do
　　 j:=j*10+c[k];
　　 if j=b then
　　 aa:=true
　　 else aa:=false;
　　end;
　　begin
　　 read(s);
　　 write(aa(s));
　　end.
//delphi/7230