const
R=5;   {радиус окружности}
dp=0.5;{погрешность}
var
ax,ay,bx,by,ox,oy:real; {точки А Б и Начало координат 0(0,0)}
AO,BO:real; {Длина отрезков AO и BO}
 
function Long(x,y:real):real;
begin
  long:=sqrt(sqr(abs(x))+sqr(abs(y)));
end;
 
begin
  {определим координаты точек}
  ax:=-5;
  ay:=0;
  bx:=3.6;
  by:=-2.5;
 {начало координат}
  ox:=0;
  oy:=0;
  {находим длину отрезков AO и BO}
  AO:=Long(ax,ay);
  BO:=Long(bx,by);
  Writeln('Длина отрезка AO = ', AO);
  Writeln('Длина отрезка BO = ', BO);
  if abs(AO-R)<=dp then WriteLn('+AO лежит на окружности') else
               WriteLn('-AO не лежит на окружности');
  if abs(BO-R)<=dp then WriteLn('+BO лежит на окружности') else
               WriteLn('-BO не лежит на окружности');
readln;
end.