Дано натуральное число N. Найти и вывести все числа в интервале от 1 до N - 1, у которых произведение всех цифр совпадает с суммой цифр данного числа. Если таких чисел нет, то вывести слово "Нет"

Var N,A,k:integer; P,S:real; Begin Write('N = ');ReadLn(N); k:=0; For N:= 1 to N-1 do     Begin     A:=N;     S:=0;     While A>0 do        Begin        S:=S+(A mod 10);        A:=A div 10;        End;     A:=N;     P:=1;     While A>0 do        Begin        P:=P*(A mod 10);        A:=A div 10;        End;     if S=P then        Begin        WriteLn(N);        k:=k+1;        End;     End; if k=0 then WriteLn('Нет'); End.