var x,y: real;
  begin
  Write (' X = '); 
  ReadLn (x); 
  Write (' Y = ');
  ReadLn(y);
  if  (( SQR(x-5) + SQR(y-2) - SQR(5) ) <=0) then 
       WriteLn (' Принадлежит')  else
       WriteLn (' Не принадлежит ')  ;
  WriteLn'
end.