Viết chương trình nhập vào 1 dãy số nguyên có 20 phần tử. Tìm các số là số chính phương ở trong dãy ( số chính phương là các số có giá trị bằng bình phương số khác. Ví dụ: 4,9,...) - mng giúp em, em đang cần gấp ( chương trình viết theo Array nha mng)

Uses Crt;

Var a:array[1..20] of byte

i,x: integer;

Begin

For i:=1 to 20 do

Begin

 Write(' Nhap a[',i,'] =');

Readln(a[i]);
End;

writeln(' Cac so chinh phuong la:');

For i:=1 to 20 do

begin

x:= trunc(sqrt(a[i]));

if sqr(x)= a[i] then write(a[i],'  ');

end;

readln;

end.

program bai_giai;
uses crt;
var A:array[1..20] of integer;
    i:byte;
begin
    clrscr;
    for i:=1 to 20 do
        begin
            write('So thu ',i,': ');  readln(A[i]);
        end;
    for i:=1 to 20 do
        if sqrt(A[i])=trunc(sqrt(A[i])) then write(A[i],' ');
    readln;
end.