program prijateljidoN;

var

izlaz:text;

n,i,j:integer;

sumadi:longint;

function sumadel(n:integer): longint;

var

sumad,d:longint;

begin

sumad:=1;

for d:=2 to n div 2 do

if n mod d = 0 then

sumad:=sumad+d;

sumadel:=sumad;

end;

begin

assign(izlaz,'prijatelji.out');

rewrite(izlaz);

writeln('Unesite broj n:');

readln(n);

for i:=1 to n do

begin

sumadi:=sumadel(i);

for j:=i to n do

if (i=sumadel(j)) and (j=sumadi) then

writeln(izlaz,i:5,' je prijatelj sa ',j:5);

end;

close(izlaz);

end.