Написание программы

Задание:
Требовалось написать программу, при выполнении которой с клавиатуры считываются координаты точки на плоскости ( Х, У – действительные числа) и определяется принадлежность этой точки заданной закрашенной области (включая границы). Программист торопился и написал программу неправильно.

Программа:
Var x,y: real;
Begin
Readln(x);
Readln(y);
If x*x+y*y>=1 then
If y>=0 then
If y>=x* x-0.5 then
Write(‘Принадлежит’)
Else
Write(‘Не принадлежит’)
end.