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

program zz1;

var n, i, p, k, a, s, v:integer; / / вводим переменные целого типа

begin

write (' введите число '); / / вводим с клавиатуры число

read (n);

p:=1;

for i:=1 to n-1 do / / организуем цикл

begin

k:=i;

while k0 do / / пока в числе есть цифры

begin

s:=k mod 10; / / получаем последнюю цифру

k:=k div 10; / / отбрасываем ее из числа

a:=a + s; / / получаем сумму цифр

p:=p * s; / / получаем произведение цифр

end;

if a = p then begin write (i, ' '); v:=v+1; end;

a:=0; p:=1; / / обнуляем переменные

end;

if v = 0 then write ('Нет');

end.