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

Question

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

---

Answer 1

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