Vct nhập mảng n phần tử. Xuất ra các số chính phương trong mảng đếm xem coi có bao nhiêu số chính phương trong mảng

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.