Написать программу в Паскале Отыскать все натуральные числа, не превосходящие данного

program zz1;

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

begin

write( введите  n ); // вводим данное количество чисел

read(n);

for i:=1 to n do // организуем цикл, в котором переберем все числа от единицы до данного n

begin

s:=i;p:=0;k:=0;

while s gt; 0 do // пока в числе есть числа

begin

v:=s mod 10; // получаем заключительную

k:=k + 1; // считаем ее

if (vlt;gt;0) and (i mod v = 0) then p:=p+1; // если число делится на цифру, то считаем

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

end;

if p = k then write(i, );

end;

end.