Program so_chinh_phuong;
uses crt;
type ArrInt = array[1..250] of integer;
Var n,i,x,d : integer;
a: ArrInt;
BEGIN
clrscr;
{Nhap n va day gom n so tu nhien}
write('Nhap so phan tu cua day so: n = ');
readln(n);
for i:=1 to n do
begin
write('Phan tu thu ',i,'= ');
readln(a[i]);
end;
{Dem cac so chinh phuong co trong day so vua nhap}
d:=0;
for i:=1 to n do
begin
x:=trunc(sqrt(a[i]));
if sqr(x)=a[i] then
d:=d+1;
end;
writeln('So cac so chinh phuong co trong day so tren la: ',d);
readln;
END.