Code

var a:array[0..1000009] of int64;
    n,i:longint;x:int64;
begin
 readln(n);
 for i:=1 to n do
        begin
                read(x);if sqrt(x)=trunc(sqrt(x)) then a[trunc(sqrt(x))]:=1;
        end;
 for i:=0 to 1000000 do
        if a[i]=0 then begin
                                write(i*i);break;
                       end;
end.