Помогите пожалуйста! Нужно составить блок схему и написать программу в ТурбоПаскаль

Question

Помогите пожалуйста! Нужно составить блок схему и написать программу в ТурбоПаскаль

---

Comments

Попадает ли заданная точка в закрашенную область?

---

Да, верно, не дописала до конца

Answer 1

Var X,Y,R:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
R:=X*X+Y*Y;
if R > 1 then
   if x > 0 then
      if y > 0 then Write(R < 4)
      else Write(R < 25)
   else if y < 0 then Write(R < 16)
        else Write(R < 9)
else Write(false)
End.

---