uses crt;
var
a: array [1 .. 3000] of integer;
e, i, k: integer;
r: real;
begin
for i := 1 to high(a) do
begin
r := sqrt(a[i]);
k := trunc(sqrt(a[i])); { }
if ((r - k) = 0) and ((trunc(sqrt(a[i])) mod 2) = 0) then
begin
write(a[i]:5);
inc(e);
end;
end;
writeln;
writeln(e);
end.