Nhập vào 1 dãy A gồm N (n<=250) số nguyên dương. Cho biết vị trí của số hạng là số chính phương?

uses crt;
var a:array[1..250]of longint;i,n,j:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
        end;
  for i:=1 to n do
        begin
         for j:=1 to a[i] do if(sqr(j)=a[i])then write(i,' ');
        end;
 readln
end.

Program baitap;
Uses crt;
Var A:array[1..250] of integer;
      N,i: integer;
Begin
Clrscr;
Write('N='); Readln(N);
For i:=1 to N do
     Begin
     Write('A[',i,']=');
     Readln(A[i]);
     End;
For i:=1 to N do
     IF sqr(trunc(sqrt(A[i])))=A[i] then Write(i,'  ');
Readln;
End.