[Dekker]

Program k;
Var
x,y:integer;
Begin
Writeln('Vvedite X u Y');
readln(x,y);
if (x>=-2) and (x<=0)
then
if (y>=0) and (y<=-x)
then
writeln('Popadaet')
else
writeln('Ne popadaet');
readln;
end.

Прокомпилируй её.. ибо писал не в паскале...
Ну блок-схему легко нарисовать...