Задача про окружности

[makskovalko]

Здравствуйте! Помогите решить задачу на Pascal.

[Arigato]

Считайте расстояние между центрами двух окружностей, если оно меньше или равно суммы их радиусов - они пересекаются.

[Serge_Bliznykov]

а что вызывает сложность? как перебрать все пары или как определить для двух окружностей пересекаются ли они?!

если первое, то два вложенных цикла

for i:=1 to N-1 do
  for j:=i+1 to N do
      if есть пересечение окружностей i-й и j-й  then 
              записать результат в файл.
              признак_нашли_пересечение := true;
              прервать циклы

если второе, то смотрите на форуме:
Задача на окружности
Нахождение пересечений двух окружностей