Определить, принадлежит ли заданная точка заданной области - Turbo Pascal

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

Для данных областей составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае Помогите пожалуйста составить программу

Решение задачи: «Определить, принадлежит ли заданная точка заданной области»

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

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки');
readln(x,y);
write((x>=0)and(x<=6)and(y>=-x+3)and(x*x+y*y<=36));
readln
end.

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

В первой строке используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменные x и y типа real предназначены для хранения координат точки.
Строка clrscr очищает экран перед вводом данных.
Строка 'Введите координаты точки' выводит сообщение для пользователя.
Числа x и y, введенные пользователем, сохраняются в переменных x и y соответственно.
Строка readln считывает два числа от пользователя и сохраняет их в переменных x и y.
Выражение (x>=0)and(x<=6)and(y>=-x+3)and(xx+yy<=36) вычисляет условие, которое проверяет, принадлежит ли точка заданной области.
Строка readln считывает следующую строку ввода.
Код завершается.