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.