[Tonny_Bennet]

3ddeni, извини, компилятора фортрана под рукой не оказалось. Написал на c#. Работает. Код с комментариями и достаточно прозрачен. В диапазоне до 300 выводит такие пары:
6 6
28 28
220 284
284 220

Код:

        static void Main(string[] args)
        {
            //верхний предел
            int max_value = 500;

            //суммы делителей 
            int sum_1;
            int sum_2;

            //перебираем в цикле все возможные натуральные числа
            //не превосходящие максимального значения
            for (int i=1; i <= max_value; i++)
            {
                //обнуляем суммы
                sum_1 = 0;
                sum_2 = 0;

                //находим все делители числа i
                for (int j = 1; j < i; j++)
                {
                    //если числа делятся без остатка
                    if (Math.IEEERemainder(i,j) == 0)
                    { 
                    //суммируем делители числа i
                        sum_1 = sum_1 + j;  
                    }
                }

                //находим все делители sum - 
                //суммы числа делителей i
                for (int j = 1; j < sum_1; j++)
                {
                    //если числа делятся без остатка
                    if (Math.IEEERemainder(sum_1, j) == 0)
                    {
                        //суммируем делители числа sum_1
                        sum_2 = sum_2 + j;
                    }
                }

                //Если сумма делителей второго числа равна первому
                //найдена пара "дружественных чисел"
               if (i == sum_2)
               {
                    Console.WriteLine("Pair: " + i.ToString() + " " + sum_1.ToString());
               }
            
            }

            Console.WriteLine("Press any key for exit...");
            Console.ReadKey();
        }

[ferget]

Tonny_Bennet, число жестко заданно, лучше что-то вроде

Код:

int max_value = Convert.ToInt32(Console.ReadLine());

[3ddeni]

ооо большое спасибо ) думаю теперь разберусь

[3ddeni]

логика решения задачи мне понятна ...реализовал ее с использованием вложенных циклов.

возникают проблемы при использовании функций в фортране

тут немного переделал код

program pr4
integer s1,k,g,s
write(*,*) "vvdedite chislo k"
read(*,*) k

do g=2,k
s=del(g)
s1=del(j)
if((s1==g).and.(s/=g).and.(s/=x)) then
write(*,*) "Chisla",g," i",s,"-drugestvenie"
x=s1
endif

end do
contains
integer function del(a)
integer s,i,a
s=0
do i=1,a-1
if(mod(a,i)==0) then
s=s+i
end if
end do
del=s
end function del

end

[3ddeni]

задачу решил

[Tonny_Bennet]

Tonny_Bennet, число жестко заданно, лучше что-то вроде Код: int max_value = Convert.ToInt32(Console.ReadLine()); »

Абсолютно согласен, но когда лень и быстро пишешь - по мне уж лучше использовать меньше плавающих параметров