Trần Đồng Nguyệt Ánh

uses math;
var
        A, C: Array[1..100000] of longint;
        i, n,res, k: longint;

const
        fi = 'CAU3.INP';
        fo = 'CAU3.OUT';

begin
        assign(input,fi); reset(input);
        assign(output,fo); rewrite(output);
        readln(n);
        for i:=1 to n do read(a[i]);

        //cau3a
        res :=0;
        for i:=1 to n do
          if sqrt(a[i]) = trunc(sqrt(a[i])) then
            res := max(res, a[i]);
        writeln(res);
        //het cau3a

        //cau3b
        k:=0;
        for i:=1 to n do
          if not( (a[i] mod 3 = 0) and (a[i] mod 5 = 0) ) then
                begin
                        k := k + 1;
                        c[k]:=a[i];
                end;
        writeln(k);
        for i:=1 to k do
          write(c[i],#32);
        //het cau3b
        close(input); close(output);
end.