Отыскать все трехзначные числа,сумма которых одинакова их творению Паскаль

а такие есть?

999 + 999 = 1998, а 100 * 100 = 10000 (сумма макс. 3х значных меньше творенья мин.) 

мне нужна программка

Подобно


begin
  for var a := 100 to 999 do begin
    for var b := 100 to 999 do begin
      if a * b = a + b then writeln(a,'-', b);
    end;
  end;
end.

var
  a,b,i,n:integer;
   begin
    for i:=100 to 999 do
     if ((i mod 10) + (i div 10) + (i div 100)) = ((i mod 10) * (i div 10) * (i div 100)) then
      begin
     write(i,' ');
         a:=a+1;
         end;
     if a=0 then
     writeln('Нет таких чисел');
     end.
Программка работает, но чисел таких нет