CPHUONG411 PASCAL

var a:array[1..1000000] of longint;
	n:longint;

procedure nhap;
var i:longint;
begin
	readln(n);
	for i:=1 to n do read(a[i]);
end;

function cp(x:longint):boolean;
var y:real;
begin
	y:=sqrt(x);
	if y=trunc(y) then exit(true) 
	else exit(false);
end;

procedure giai;
var	i:longint;
begin
	for i:=1 to n do
   		if cp(a[i]) then writeln(i);
end;

begin
	assign(input, 'cphuong411.inp');reset(input);
	assign(output, 'cphuong411.out');rewrite(output);
	nhap;
	giai;
end.