Выполни задание

Требовалось написать программу, при выполнении которойс клавиатуры вводятся координаты \(x\) и \(y\) точки на плоскости и определяется принадлежность этой точки закрашеннойобласти единичной окружности:

Программист торопился и написал программу с ошибками:

var \(x, y: real;\)

begin

\(readln(x,y);\)

if \(x\*x+y\*y\lt=1 \) then

if \(y\lt=0\) then

if \( x\lt0 \) then

\(write('принадлежит')\)

else

\(write('не~принадлежит')\)

end .

Выясни, как работает программа при значениях \(х\) и \(y\) ,принадлежащих областям \(A, B, C, D, E, F, G, H\) .

Анализ программы проведи, заполнив таблицу:

Предложи свой вариант программы, исключающий случаиеё неправильной работы.