[Elka123]

Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284)

помогите вставить функции . программа работает правильно, только без функций , надо функции вставить

Код:

program Project16;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  n,i,j,k,m: integer;
  sum_del, sumto: word;
begin
  try
    writeln ('vvedite n');
    readln (n);

  for i:=1 to n-1 do
 begin    sum_del:=0;
        for m:=1 to i-1 do
          if  i mod m=0
          then
             sum_del:=sum_del +m;

         sumto:=0;
               for m:=1 to sum_del-1 do
          if sum_del mod m=0
          then
             sumto:=sumto +m;
        //end;
     if sumto=i
     then
     writeln ('dryjestvennye chisla ',sum_del,' & ', i  );
 end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln
end.

[Alegun]

Процедуры тоже не помешают, например вместо

Код:

sum_del:=sum_del +m;

можно воткнуть

Код:

Inc(sum_del, m);