uses crt;

var a, b, s1, s2, i : integer;

begin

clrscr;

write('Nhap hai so a, b : '); readln(a, b);

for i := 1 to a do

if a mod i = 0 then s1 := s1 + i;

for i := 1 to b do

if b mod i = 0 then s2 := s2 + i;

if s1 = s2 then write(a,' va ', b ,' la hai so ban be')

else write(a,' va ', b ,' khong la hai so ban be');

readln

end.

`Pascal`

var a,b,u1,u2,i:longint;
begin
readln(a,b);
u1:=0;u2:=0;
for i := 1 to a do
begin
if a mod i = 0 then u1:=u1+i;
end;
for i:= 1 to b do
begin
if b mod i = 0 then u2:=u2+i;
end;
if u1=u2 then writeln('la so ban be')
else writeln('khong la so ban be');
end.

`Python`

a=int(input())
b=int(input())
u1=0 
u2=0
for i in range(1,a+1) :
    if a%i==0:
        u1=u1+i 
for i in range (1,b+1) :
    if b%2==0 :
        u2=u2+i 
if u1==u2 :
    print("là số bạn bè")
else :
    print("không là số bạn bè")