паскаль?
да
Var x,y:real; BEGIN writeln('Введи значения x,y'); readln(x,y); if (x>=-2) and (x<=3) and (y>=0) and (y<=2) writeln('принадлежит') <br>else writeln('не принадлежит'); readln; END.
Огромное спасибо!!!