Среди чисел от 1 до 100.Найдите все пары чисел для которых их сумма равняется произведению.Pascal

Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
    for b=1 to 100 do
    begin
        if a+b=a*b then write (a, b);
    end;
end;
END.
 Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2