[egblob]

ИМХО, скорее так:

program k;

var x, y:real;

begin
  writeln('Vvedite X u Y');
  readln(x,y);
	if (y<=2) and (x<=0) and (-x<=y) then
		writeln('Popadaet')
	else
		writeln('Ne popadaet');

	readln;
end.

Паскаль года 4 назад видел в пойседний раз и на ходу написал, так что надо хорошенько потестировать...