Выяснить, пересекаются ли окружности

var r1,r2,d:real;
begin
writeln('Введите радиусы двух окружностей и расстояние между ними, положительные числа');
readln(r1,r2,d);
//если расстояния больше суммы радиусов или расстояние менбше модуля разности радиусоы
if (d>r1+r2)or(d<abs(r1-r2)) then write('не пересекаются')
else write('пересекаются');
end.

const t=0.001;//точность сравнения вещественных чисел
var r1,r2,d:real;
begin
writeln('Введите радиусы двух окружностей и расстояние между ними, положительные числа');
readln(r1,r2,d);
//если расстояния больше суммы радиусов или расстояние меньше модуля разности радиусов
if (d>r1+r2)or(d<abs(r1-r2)) then write('нет точек пересечения')
else if (abs(d-(r1+r2))<t)or(abs(d-abs(r1-r2))<t) then write('одна точка пересечения')
else write('2 точки пересечения');
end.

if(r1=r2)and(d=0)

const t=0.001;//точность сравнения вещественных чисел
var r1,r2,d:real;
begin
writeln('Введите радиусы двух окружностей и расстояние между ними, положительные числа');
readln(r1,r2,d);
if(r1=r2)and(d=0) then write('окружности совпадают')
//если расстояния больше суммы радиусов или расстояние меньше модуля разности радиусов
else if (d>r1+r2)or(d<abs(r1-r2)) then write('нет точек пересечения')
else if (abs(d-(r1+r2))<t)or(abs(d-abs(r1-r2))<t) then write('одна точка пересечения')
else write('2 точки пересечения');
end.