Program Amis;
Var m, n, sdn, sdm : integer;
(**********************************)
Function diviseurs (x : integer) : integer;
Var sdx, i : integer;
Begin
sdx:=1;
For i:=2 To (x div 2) Do
If (x mod i) = 0 Then sdx := sdx+i;
diviseurs:=sdx;
End;
(***********************************) 
Begin
For m:=1 To 1000 Do 
For n:=1 To 1000 Do
Begin
sdn := diviseurs (n);
sdm := diviseurs (m);
If (sdm=n) and (sdn=m)
Then writeln (n, ' et ', m, ' sont amis') ;
End;
End.