var
  a, t1, t2: int64;
  b: boolean;

begin
  readln(a);
  while a > 0 do
  begin
  t1:=a mod 10;
  a:= a div 10;
  t2:=a mod 10;
  if t1=t2 then b:=t1=t2;
  end;
  writeln(b);
end.