uses crt;

var i,j,dem,n:integer;

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

begin

clrscr;

   write('Nhap do dai mang: ');readln(n);

   writeln('Nhap ',n,' phan tu cua mang:');

   dem:=0;

   for i:= 1 to n do 

      begin

      write('a[',i,'] = ');readln(a[i]);

      end;

   writeln('Cac so chinh phuong co trong mang:');

   for i:= 1 to n do 

      for j:= 1 to n do If j*j = a[i] then 

            begin

            write(a[i],'    ');

            dem:=dem+1

            end;

   writeln;

   writeln('Co ',dem,' so chinh phuong trong mang');

   readln;

end.                             

uses crt;

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

i, n, d : integer;

begin

clrscr;

d := 0;

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

for i := 1 to n do

begin

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

if sqr(trunc(sqrt(a[i]))) = a[i] then d := d + 1;

end;

write('Mang co ', d ,' so chinh phuong');

readln

end.