Задачи ** определение принадлежности точки области срочно!!!!! 20 баллов

Question

Задачи на определение принадлежности точки области
срочно!!!!!
20 баллов

---

Answer 1

Var x,y: real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and(x>=0)and(y>=0)and(y>=-x+3)
  then writeln('Да')
  else writeln('Нет');
end.

Пример:
x = 3
y = 1
Да