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.

UHJvZ3JhbSBBbWlzOwpWYXIgbSwgbiwgc2RuLCBzZG0gOiBpbnRlZ2VyOwooKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKRnVuY3Rpb24gZGl2aXNldXJzICh4IDogaW50ZWdlcikgOiBpbnRlZ2VyOwpWYXIgc2R4LCBpIDogaW50ZWdlcjsKQmVnaW4Kc2R4Oj0xOwpGb3IgaTo9MiBUbyAoeCBkaXYgMikgRG8KSWYgKHggbW9kIGkpID0gMCBUaGVuIHNkeCA6PSBzZHgraTsKZGl2aXNldXJzOj1zZHg7CkVuZDsKKCoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKSAKQmVnaW4KRm9yIG06PTEgVG8gMTAwMCBEbyAKRm9yIG46PTEgVG8gMTAwMCBEbwpCZWdpbgpzZG4gOj0gZGl2aXNldXJzIChuKTsKc2RtIDo9IGRpdmlzZXVycyAobSk7CklmIChzZG09bikgYW5kIChzZG49bSkKVGhlbiB3cml0ZWxuIChuLCAnIGV0ICcsIG0sICcgc29udCBhbWlzJykgOwpFbmQ7CkVuZC4=