Thuật toán

`p` và `q` đều là số nguyên dương và `p*q=B` nên `1 <= q,p <= B`

Do vậy, ta chỉ cần cho `p` chạy từ `1` đến `B`, tính `q=B/p` sau đó kiểm tra kết quả.

Code

uses crt;
var a,b,p,q: longint;
begin
    write('Nhap A: '); readln(a);
    write('Nhap B: '); readln(b);
    for p := 1 to b do
        if b mod p = 0 then begin
            q := b div p;
            if (p < q) and (q + p = a) then
                writeln('(p,q) = (',p,',',q,')');
        end;
end.