ПАСКАЛЬ заранее спасибо))

Ответ:

Program pro;

var

 Ymax : real := 1.5;

 Ymin : real := -2;

 X, Y : real;

Begin

 readln(X, Y);

 if (Y <= Ymax) and (Y >= Ymin) then writeln('попадает') else writeln('не попадает');

End.

Объяснение:

программа протестирована в PascalABC.NET