Дано естественное число N. Отыскать и вывести все числа в интервале

uses crt;
var n,m,i,p:longint;
nbsp;nbsp;nbsp;nbsp;s,k:byte;
begin
clrscr;
repeat
write(Введите натуральное число N=);
readln(n);
until ngt;0;
m:=n;
s:=0;
while mgt;0 do
nbsp;begin
nbsp;nbsp;s:=s+m mod 10;
nbsp;nbsp;m:=m div 10;
nbsp;end;
writeln(Числа от 1 до ,n-1,, у которых произведение цифр=,s);
k:=0;
for i:=1 to n-1 do
nbsp;begin
nbsp;nbsp;m:=i;
nbsp;nbsp;p:=1;
nbsp;nbsp;while mgt;0 do
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p:=p*(m mod 10);
nbsp;nbsp;nbsp;nbsp;m:=m div 10;
nbsp;nbsp;nbsp;end;
nbsp;nbsp;if p=s then
nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;k:=1;
nbsp;nbsp;nbsp;nbsp;write(i, );
nbsp;nbsp;nbsp;end;
nbsp;end;
if k=0 then write(Таких чисел нет);
readln
end.