Среди чисел n больше 1 и меньше 100,найти все пары чисел ,для которых их сумма равна их произведению.Паскаль

Var n,i:integer;
begin
for n:=2 to 99 do
begin
for i:=2 to 99 do
begin
if (n+i)=(n*i) then writeln(n, ,i);
end;
end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.