Дано натуральное число 10<=n<=1000000.Найдите наименьшее натуральное число m ,произведения цифр десятичной записи записи которого равнялось бы n ,или сообщение,что таких чисел не существует.Входные данные:натуральное число n (10<=n<=1000000)Выходные данные :натуральное число mПожалуйста посчитайте пожалуйста

program PascalGuru;type cisla=1..1000000;function summa(chislo:integer):integer;var s:integer;begins:=0;while (chislo > 0) dobegins:=s + (chislo mod 10);chislo:=chislo div 10end;summa:=send;{-----------------------------------------------------}var i,n:cisla;rezult:integer;beginwrite('n= '); readln(n);rezult:=0;for i:=1 to 1000000 doif summa(i)=n then begin rezult:=i; break; end;writeln(rezult);readln;end.