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

Из целых чисел такая пара только одна — 2 и 2. А если программу писать, то такvar a, b: integerBEGINfor a=1 to 100 dobegin 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