Запишем уравнение окружности радиуса 5 с центром в точке (5, 2):
(x - 5) ² + (у - 2) ² = 5 ²
Логическое условие достаточно простое:
if (( SQR(x-5) + SQR(y-2) - SQR(5) ) <=0) then <br> WriteLn (' Принадлежит') else
WriteLn (' Не принадлежит ') ;
Листинг - в прикрепленном файле