viết chương trình n số nguyên (n<=100) và 1 số nguyên K có bao nhiêu số chính phương

Sửa đề: bỏ nhập k vài nó ko liến quan, bạn vui lòng bổ sung chi tiết câu hỏi.

uses crt;
var i,n,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(A[i]);
         if sqrt(a[i])=trunc(sqrt(a[i])) then inc(d);
      end;
   writeln(d);
readln;
end.

Sửa đề: bỏ nhập k vài nó ko liến quan, bạn vui lòng bổ sung chi tiết câu hỏi.

uses crt;
var i,n,d:longint; a:array[1..10000000]of longint;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(A[i]);
         if sqrt(a[i])=trunc(sqrt(a[i])) then inc(d);
      end;
   writeln(d);
readln;
end.