Определить, можно ли через точку (x,y) провести окружность единичного радиуса с центром в начале координат - Pascal

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

Даны два числа x и y. Можно ли через точку (x,y) провести окружность единичного радиуса с центром в начале координат. помогите решить эту задачу?

Решение задачи: «Определить, можно ли через точку (x,y) провести окружность единичного радиуса с центром в начале координат»

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

const e=1e-6; NoYes: array [Boolean] of string[3] = ('Нет','Да');
var x, y: Real;
begin
  Write('Введите x,y: '); ReadLn(x,y);
  WriteLn(NoYes[abs(sqr(x)+sqr(y)-1)<e]);
end.

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

В начале объявляются две переменные типа Real — x и y, которые будут использоваться для хранения введенных пользователем координат.
Затем идет команда ReadLn(x,y), которая считывает два значения с клавиатуры и сохраняет их в переменных x и y.
Далее идет условная конструкция с использованием функции abs(), функции sqr() и оператора сравнения <. Эта конструкция проверяет, меньше ли значение выражения sqr(x)+sqr(y)-1, чем значение константы e. Если это условие выполняется, то переменной NoYes присваивается значение, соответствующее строке 'Да'. В противном случае, переменной NoYes присваивается значение, соответствующее строке 'Нет'.
Наконец, результат проверки выводится на экран с помощью команды WriteLn(NoYes[abs(sqr(x)+sqr(y)-1)<e]).