uses crt;
var s:string;
function solve(s:string):boolean;
var i:longint;
begin
for i:=1 to length(s) do
if s[i]<>s[length(s)-i+1] then exit(false);
exit(true);
end;
begin
clrscr;
readln(s);
//check and print result
//true is correct and false isn't correct
write(solve(s));
readln;
end.