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