procedure proc (real: x,y);
begin
    if (x < 1) and (x > 0) then
        if y > -1 and y < 0 then
            writeln('true');
        else writeln('false');
    else if sqrt(x*x + y*y) < 1 then
        if (x < 0) and (x > -1) then
            if (y > 0) and (y < -1) then
                writeln('true');
            else writeln('false');
        else writeln('false');
    else writeln('false');
end;