Создать программу, которая определяет, используя введенные координаты,принадлежит ли точка кругу,ограниченному единичной окружностью?

var   x, y: real; begin   writeln('Введите координаты точки');   readln(x, y);   write('Точка с координатами (', x, ', ', y, ') ');   if sqr(x) + sqr(y) > 1 then write('не ');   writeln('принадлежит области, ограниченной окружностью единичного радиуса') end. Пример выполнения в среде PascalABC.NET: Введите координаты точки 0.2 0.4 Точка с координатами (0.2, 0.4) принадлежит области, ограниченной окружностью единичного радиуса Введите координаты точки -0.4 2 Точка с координатами (-0.4, 2) не принадлежит области, ограниченной окружностью единичного радиуса