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

VarN,A,k:integer;P,S:real;BeginWrite('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.