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

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.