написать программку в паскале, определяющую, попала ли точка в область, отмеченную

Т.е. ответ отрицательный, если точка будет лежать на окружности либо на прямой, так?

И еще, надобно указывать, в область какой буковкы попала?

В верхней доли окружности область С - весь сектор либо только на положительной оси Ох?

Var x,y:integer;
begin
readln(x,y);
if (xlt;0) and (ygt;1) and (sqr(x)+sqr(y)gt;4) then writeln('A')
else if (xgt;0) and (ygt;1) and (sqr(x)+sqr(y)gt;4) and (ygt;x-2) then writeln('B')
else if (sqr(x)+sqr(y)lt;4) and (ygt;1) then writeln('C')
else if (xlt;-2) and (sqr(x)+sqr(y)gt;4) and (ygt;0) and (ylt;1) then writeln('D')
else if (sqr(x)+sqr(y)lt;4) and (xlt;0) and (ygt;0) and (ylt;1) then writeln('E')
else if (sqr(x)+sqr(y)lt;4) and (xgt;0) and (ygt;0) and (ylt;1) then writeln('F')
else if (sqr(x)+sqr(y)gt;4) and (ygt;0) and (ylt;1) and (xgt;2) and (ygt;x-2)   then writeln('G')
else if (sqr(x)+sqr(y)gt;4) and (ygt;0) and (ylt;1) and (xgt;2) and (ylt;x-2)   then writeln('H')
else if (sqr(x)+sqr(y)gt;4) and (xlt;0) and (ylt;0) and (ygt;x-2) then writeln('I')
else if (sqr(x)+sqr(y)lt;4) and (xlt;0) and (ylt;0) and (ygt;x-2) then writeln('J')
else if (sqr(x)+sqr(y)lt;4) and (xgt;0) and (ylt;0) and (ygt;x-2) then writeln('K')
else if (sqr(x)+sqr(y)lt;4) and (xgt;0) and (ylt;0) and (ylt;x-2) then writeln('L')
else if (sqr(x)+sqr(y)gt;4) and (xgt;0) and (ylt;0) and (ylt;x-2) then writeln('M')
else if (sqr(x)+sqr(y)lt;4) and (xlt;0) and (ylt;0) and (ylt;x-2) then writeln('N')
else if  (ygt;1) and (ylt;x-2) then writeln ('O')
else writeln('Точка не лежит ни в одной из областей');
end.