var i,n,d,s:longint;

      a: array[1..1000] of longint;

begin

write('Nhap n: '); readln(n);

for i:= 1 to n do

begin

write('Nhap phan tu thu ',i); read(a[i]);

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

begin

inc(d);

s:=s+a[i];

end;

end;

writeln;

writeln('So chinh phuong la: ',d);

write('Tong so chinh phuong la: ' ,s);

readln;

end.

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i,d,t:byte;
begin
    clrscr;
    for i:=1 to 20 do
        begin
            write('A[',i,']= ');  readln(A[i]);
            if A[i]=sqr(trunc(sqrt(A[i]))) then
                begin
                    d:=d+1;
                    t:=t+A[i];
                end;
        end;
    writeln('Co ',d' so chinh phuong');
    writeln('Tong cac so chinh phuong la: ',t);
    readln;
end.