Принадлежит ли точка заданной окружности - Pascal

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

Составить программу в Pascal ABC, определяющую, принадлежит ли точка с координатами (x,y) данной окружности.

Решение задачи: «Принадлежит ли точка заданной окружности»

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

var x, y: real;
begin
  write('x = ');
  readln(x);
  write('y = ');
  readln(y);
  writeln('In area: ', (x * x + y * y <= 36) and ((x <= 0) or (y <= 0)))
end.

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

Переменные x и y объявлены как типы real, что означает, что они могут хранить числовые значения с плавающей точкой.
Строка write('x = '); выводит сообщение x = перед тем, как прочитать значение x.
Строка readln(x); читает значение x с консоли.
Строка write('y = '); выводит сообщение y = перед тем, как прочитать значение y.
Строка readln(y); читает значение y с консоли.
Строка writeln('In area: ', (x * x + y * y <= 36) and ((x <= 0) or (y <= 0))); выводит сообщение In area: и результат логического выражения (x * x + y * y <= 36) and ((x <= 0) or (y <= 0)) в виде строки.
- Фраза (x * x + y * y <= 36) - это условие, которое проверяет, является ли сумма квадратов x и y меньше или равной 36.
- Фраза ((x <= 0) or (y <= 0)) - это условие, которое проверяет, является ли x или y меньше или равным 0.
- Результат логического выражения (x * x + y * y <= 36) and ((x <= 0) or (y <= 0)) будет true или false, в зависимости от того, удовлетворяют ли оба условия.
Код завершается без использования вложенных списков.