Составьте программу, которая определяет, попадает ли точка с заданными координатами в закрашенную область - Pascal ABC

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

Помогите сделать 11,13 и 15

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

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

var r, x, y: real;
begin
  repeat
    write('R > 0;  R = ');
    readln(r)
  until r > 0;
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln('In area: ', (x >= 0) and (y >= 0) and (x * x + y * y <= r * r) or 
                       (x <= 0) and (y <= 0) and (x + y >= -r));
  readln
end.

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

var r, x, y: real; - объявление переменных r, x, y типа real
repeat - начало цикла
write('R > 0; R = ') - вывод сообщения и запроса значения переменной r
readln(r) - чтение значения переменной r из ввода пользователя
until r > 0 - условие окончания цикла, пока значение r больше 0
write('x = ') - вывод сообщения и запрос значения переменной x
readln(x) - чтение значения переменной x из ввода пользователя
write('y = ') - вывод сообщения и запрос значения переменной y
readln(y) - чтение значения переменной y из ввода пользователя
writeln('In area: ', (x >= 0) and (y >= 0) and (x x + y y <= r * r) or ((x <= 0) and (y <= 0) and (x + y >= -r))) - вывод сообщения о том, попадает ли точка с заданными координатами в закрашенную область
readln - ожидание ввода пользователя для завершения программы