Напишите , пожалуйста, программу попадания точки в область на Паскале​

program test;

var x,y: integer;

begin

read(x,y);

if (x>=-3) and (x<=2)

and (y>=-1) and (y<=1)

then write ('входит') else write ('не входит');

end.