Напишите программу, которая вводит натуральное число N и выводит на экран все натуральные числа, не превосходящие N и делящиеся на каждую из своих чисел.(PascalABC)

var n,i,t,p:integer;beginreadln(n);for i:=2 to n do begint:=i;p:=1;repeatp:=p*(t mod 10);t:=t div 10;until t=0;if (p<>0)and(i mod p=0) then write(i,' ');end;end.