var x,y:real;
    t:boolean;

BEGIN

  writeln('write X, Y');
  t:=false;
  readln(x,y);
  if ((y*y+sqr(1-x)<=1)or(y*y+sqr(1+x)<=1)) and (abs(x)<=1) then if (y<=1-abs(x)) then t:=true;
  writeln(t);

END.