Program BTT;
Uses crt;
Var a,b: longint;
Function TongUTS(a:longint):longint;
Var t,i: longint;
Begin
t:=0;
For i:=2 to a div 2 do
If a mod i = 0 then t:=t+i;
TongUTS:=t;
End;
Begin
Clrscr;
Write('Nhap 2 so bat ki: '); Readln(a,b);
If TongUTS(a)=TongUTS(b) then Write('La hai so anh em')
Else Write('Khong phai hai so anh em');
Readln
End.