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

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

Определить, принадлежит ли точка области плоскости, ограниченной линиями x2+(y-1)2=1, y=1-x2, y>=0

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

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

var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if (y<=1-x*x)and(x*x+sqr(y-1)<=1)
then write('Точка попадает в область')
else  write('Точка не попадает в область')
end.

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

Создаются две переменные типа real - x и y, которые будут использоваться для хранения координат точки.
Выводится сообщение «Введите координаты точки», чтобы пользователь мог ввести значения x и y.
С помощью функции readln() считываются значения x и y, введенные пользователем.
Вычисляется значение выражения (y<=1-x*x) и проверяется, равно ли оно истине. Это условие говорит о том, что точка находится внутри области плоскости, ограниченной линиями.
Вычисляется значение выражения (x*x+sqr(y-1)<=1), где sqr() - это функция возведения в квадрат. Это условие говорит о том, что точка находится внутри области плоскости, ограниченной линиями.
Если оба условия выполняются, то выводится сообщение «Точка попадает в область».
Если хотя бы одно из условий не выполняется, то выводится сообщение «Точка не попадает в область».