Написать программу, которая определяет, попадает ли точка с заданными координатами в область - Pascal (5168)

Формулировка задачи:

Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы программы вывести в виде текстового сообщения.

Решение задачи: «Написать программу, которая определяет, попадает ли точка с заданными координатами в область»

Листинг программы

var x,y,r:real;
begin
 repeat
  writeln('r=?, r>0');
  readln(r);
 until r>0;
 writeln('x,y=?');
 readln(x,y);
 if((x<=0)and(y>=0)and(sqr(r)>=sqr(x)+sqr(y)))
 or((y<=0)and(y>=-2*x)and(y>=2*(x-r))) then write('Попадает')
 else write ('Не попадает');
 readln
end.

Объяснение кода листинга программы

var x,y,r:real; - объявление переменных x, y и r типа real
repeat - начало цикла повторения
writeln('r=?, r>0'); - вывод сообщения r=? и проверка, что r больше 0
readln(r); - чтение значения r из ввода пользователя
until r>0; - повторение цикла до тех пор, пока r больше 0
writeln('x,y=?'); - вывод сообщения x,y= и запрос значений x и y
readln(x,y); - чтение значений x и y из ввода пользователя
if((x<=0)and(y>=0)and(sqr(r)>=sqr(x)+sqr(y)))
or((y<=0)and(y>=-2x)and(y>=2(x-r))) then write('Попадает') - проверка условия для попадания точки с заданными координатами в область
else write ('Не попадает'); - запись Не попадает, если условие не выполняется
readln
end. - завершение программы