Проверить принадлежит ли точка закрашенной области, границе или находится вне области (код на Pascal)

[homk]

Всем привет.
Задачулька такая...Посмотрите(проверьте на ошибки) принадлежит ли точка закр.обл,границе или наход в не обл.Соответственно выдать нужный результат.
рис.см.ниже

program sus;
uses crt;
var h : integer;
    x,y,r:real;

begin
clrscr;
h:=1;
while h=1 do
begin
write('x=');Readln(x);
write('y=');readln(y);
write('r=');readln(r);
if(x>0) and (x<r) and ((sqr(x)+sqr(y))>sqr(r)) and (y>0) then writeln('da')
                                                         else if (x>=0) and (x<=r) and(((x*x+y*y)>=(r*r))) and (y>=0)
                                                         then writeln('granica')
                                                         else if r=0 then writeln('error')
                                                         else writeln ('net');


writeln('novie dannie?esli da to vvedite 1,net-lubuiu cifru');read(h);
end;
readln;
end.

______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
я исправил название темы.
Впредь будьте, пожалуйста, внимательней.

Модератор.

[Serge_Bliznykov]

1) проверку на неправильный ввод r нужно вынести до проверки принадлежности точки.
Лучше всего, сразу после ввода r и сделать такую проверку. И не только на равенство нулю, но и на отрицательную величину..

2) не ошибка, но как-то немного непоследовательно.
в одном месте вы проверяете (sqr(x)+sqr(y)) ??? sqr(r)
в другом: x*x+y*y) ?? (r*r)
вы уж выберите один подход..

ну а сама проверка, имхо, правильно написана.
я не нашёл в ней косяков..

[homk]

1)

write('r=');readln(r);
if r=0 then writeln('error');

Если так сделать,то произойдет ошибка.
Программа выдаст 2 сообщения 1-error
2-net
Поэтому возник вопрос?почему нужно выносить проверку радиуса после ввода его сразу?может.я не совсем понимаю что-то.
2) оформление должно быть одинаковое?

[homk]

все)понял)