Листинг программы

program z22;

{Два натур. числа наз. дружественными ,если

каждое из них равно сумме всех делителей другого,

кроме самого этого числа.Найти все пары в данном

диапозоне.}

uses crt;

var i,j,n,k,s,p1,p2,fl:longint;

procedure delit(l:longint;var s:longint);

                var m:longint;

 begin

  s:=0;

  for m:=1 to l-1 do

   if l mod m=0 then s:=s+m;

 end;

 begin

  clrscr;

   write('введите диапозон через пробел:');readln(n,k);

   for i:=n to k do

    for j:=n to k do

     begin

      fl:=0;

      delit(i,s);p1:=s;

      delit(j,s);p2:=s;

      if (p1=j)and (p2=i)then writeln(p1,' ',p2);

     end;

  readln;

 end.