Viết chương trình pascal tìm cặp số bạn bè (hoặc cũng có thể gọi là thân thiết) <Hai số được nhập vào từ bàn phím> định nghĩa thì tra google nha mn

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

p/s: bài này khá đơn giản vì định nghĩa số bạn bè là 2 số có tổng ước bằng nhau nên chỉ cần tính tổng ước 2 số và so sánh là ra nhé.

@Hômnaytôibịrob