Var n,i,t,p:integer; begin readln(n); for i:=2 to n do begin t:=i; p:=1; repeat p:=p*(t mod 10); t:=t div 10; until t=0; if (p<>0)and(i mod p=0) then write(i,' '); end; end.
Program gt; var a:array[1..10]of integer; i:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(21)-65; if(i mod 2=0)then write(a[i],' '); end; end.