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

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) не принадлежит области, ограниченной окружностью единичного радиуса