Решить ! ! напишите следующее выражение на паскале: "точка с координатами (x,e) лежит внутри круга радиуса 5 с центром в точке (5,2).

Запишем уравнение окружности радиуса 5 с центром в точке (5, 2):

(x - 5) ² + (у - 2) ² = 5 ²

Логическое условие достаточно простое:
 
    if  (( SQR(x-5) + SQR(y-2) - SQR(5) ) <=0) then 
       WriteLn (' Принадлежит')  else
       WriteLn (' Не принадлежит ')  ;   

Листинг - в прикрепленном файле