Viết chương trình nhập một dãy n nguyên dương 32 bit,hãy in ra cá phần tử là số chính phương (n<=10^4) bài dự thi của tuiiii

var i,n: integer; ckq: boolean; arr: array[1..10000] of integer;
begin
    write(‘Nhap so luong phan tu: ‘);
    readln(n);
    for i:=1 to n do
    begin
        write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘);
        readln(arr[i]);
    end;
    writeln(‘Ket qua: ‘);
    for i:=1 to n do
        if (frac(sqrt(arr[i]))=0) then 
        begin
            ckq:=true;
            writeln(i);
        end;
    if (ckq=false) then writeln(‘Khong co so nao thoa man.’);
    readln
end.