Паскаль. Составить программу, попадают ли ведённые данные в закрашенную область.

Question

Паскаль. Составить программу, попадают ли ведённые данные в закрашенную область.

---

Answer 1

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

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