extra+

program extraplus;
uses WinCrt;
type
    tab = array [1..100] of word ;

var
    t : tab;
    n,a : byte;

Procedure inpn(var n : byte);
    Begin
        repeat
            Write('N= ');
             readln(n);
        Until n >= 5;
    end;
    Procedure rempt(var t : tab ; n : byte);
        var
            a : Integer;
    begin
            for a:=1 to n do
                t[a]:= random(9991)+10;
        end;
        Function vf(x,a : word ): Boolean;
            var
                ch: string;
                k,b,s : Integer;
            Begin
                str(x,ch);
                s:=0;
                for b:=1 to Length(ch) do
                 s:= s+ ( ord(ch[b])-ord('0') )  ;
                b:=1;
                k :=  ord(ch[b])-ord('0');
                while (b <= Length(ch) )and (k <> 0)  and (s mod k = 0 ) do
                    begin
                        b:=b+1;
                        k :=  ord(ch[b])-ord('0');
                    End;
                vf:= b > Length(ch);

            End;
                Procedure afft(t : tab ; n : Byte);
                Var
                    a: word;
                begin
                    for a:=1 to n do
                        if VF(t[a],a) = true then
                         write(t[a]:7);

                End;


begin
    Randomize;
    inpn(n);
    rempt(t,n);
    afft(t,n);
End.