Спасайте друзья! Составить программу на pascal abc.

var x,y: integer;

begin

read(x,y);

if (-5=<x=<-2) and (2=<x=<5) and (0=<y=<6) then

writeln('попадает')

else writeln('не попадает');

end.