ОБ
Ольга Беляева
var
r1, x1, y1, r2, x2, y2: real;
begin
write('r1 x1 y1? ');
read(r1, x1, y1);
write('r2 x2 y2? ');
read(r2, x2, y2);
if r1 + r2 < sqrt(sqr(x1 - x2) + sqr(y1 - y2)) then write('не ');
writeln('имееют');
end.
А что они?
Это вопрос в компьютерный раздел? Если да, то они имеют. Только вот, что они имеют....