uses crt;
var n, cnt, i: longint;
    a: array[1..1000] of longint;

function check(n: longint): boolean;
begin
    exit(n = sqr(trunc(sqrt(n))));
end;
    
begin
clrscr;
    readln(n);
    
    for i:=1 to n do
        begin
            read(a[i]);
            if check(a[i]) then inc(cnt);
        end;
    
    for i:=1 to n do
        if check(a[i]) then write(a[i], ' ');
    writeln;
    
    writeln(cnt);
readln; readln;
end.

uses crt;

var a : array[1 .. 20] of integer;

i, n, d, s : integer;

begin

clrscr;

write('Nhap so phan tu : '); readln(n);

d := 0; s := 0; write('Nhap mang A : ');

for i := 1 to n do begin read(a[i]);

if sqr(trunc(sqrt(a[i]))) = a[i] then

d := d + 1; end;

writeln('Co ', d ,' so chinh phuong');

readln

end.