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.

uses crt ;
 var a,b : longint ;
  kt : string ;
  function USC(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 ;
            USC := t ;
     end ;
 begin 
  clrscr;
    write('nhap a:');
     readln(a);
    write('nhap b: ');
     readln(b);
    if USC(a)=USC(b) then kt :='LA HAI SO ANH EM'
        else kt := 'kHONG LA HAI SO ANH EM';
         Writeln(kt);
          end.