program mn; uses crt; var x,y:longint; BEGIN ClrScr; Write('x,y:');readln(x,y); if (x*x-4>=y)and(x>=y)and(-x<=y)or(-x>=y)and(x<=y) then writeln('да') else writeln('нет'); readln; END.