Функция заданная в виде графика, попадание точки в область - Turbo Pascal

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

Помогите написать программу для решения функции заданной в виде графика (параметр r задается с клавиатуры); определить попадает ли точка в заштрихованную область.

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

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

uses crt;
var x,y:real;
begin
clrscr;
write('Введите x=');
readln(x);
if x<=-2 then y:=-x-2
else if x<=-1 then y:=sqrt(1-sqr(x+1))
else if x<=1 then y:=1
else if x<=2 then y:=-2*x+3
else y:=-1;
write('y=',y:0:2);
readln
end.

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

В первой строке кода используется библиотека crt, которая является стандартной библиотекой языка Turbo Pascal и используется для ввода/вывода данных.
Далее объявляются две переменные типа real: x и y.
Строка clrscr используется для очистки экрана перед вводом данных.
Затем идет блок if-else, где в зависимости от значения переменной x выполняется определенный блок кода.
Если x меньше или равно -2, то значение переменной y устанавливается равным -x-2.
Если x меньше или равно -1, то значение переменной y устанавливается равным квадратному корню из 1 минус квадрат x+1.
Если x больше или равно 1, то значение переменной y устанавливается равным 1.
Если x больше или равно 2, то значение переменной y устанавливается равным -2*x+3.
Если x больше 2, то значение переменной y устанавливается равным -1.
В конце выводится значение переменной y с помощью функции write.
Конец программы обозначен точкой с запятой.