Напишите программу на языке паскаль

var x,y:integer; begin readln(x); readln(y); if (x>=0) and (x<=2) and (y>=-3) and (y<=5) then writeln('Точка пренадлежит области') else writeln('Точка не пренадлежит области'); end.