Дружественные числа, Помогите разобраться. Опции

[Аня]

Здравствуйте, уважаемые.
Я была бы очень признательна, если б вы мне помогли разобраться в задаче, и если можно то, решить.
Найти все дружественные числа, лежащие в диапазоне от 200 до 300.
Я посмотрела на вашем форуме, что такое дружественные числа, но так ничего и не поняла. Всех делителей, значит и само число? Т.е. у числа двести, например делители 200, 100, 50, 25, 10, 5, 2, 1, и эта сумма, точнее 393, должна точно так же разложиться на делители, чтобы ее сумма получилась равной 200? Но тогда ведь заведомо известно, что сумма будет больше 200, т. к. первый делитель это как минимум 393. Я ничего не пониманию, помогите, если сможете, люди добрые.

[klem4]

Числа называются дружественными, если каждое из них равно сумме делителей другого, не считая самого себя, но считая единицу, вот программа , которая выводит числа от 1 до С, которые равны сумме своих делителей, тебе надо перебрать просто все числа по парам используя этот алгоритм :

uses crt;
var
   C,count,i,j,s : word;
begin

   write('C = '); readln(C );

   count := 0;

   for i := 1 to C  do begin
      s := 0;
      for j := 1 to i div 2 do begin
         if i mod j = 0 then begin
            writeln(j,' - delitel ',i);
            s := s + j;
         end;
         if s = i then begin
            writeln('Chislo ',i,' ravno summe svoih delitelei');
            readln;
            inc(count);
         end;
      end;
   end;
   readln
end.