Phần khai báo bạn tự khia báo nha, mình làm từ Begin luôn

begin

        write('Nhap so phan tu: '); readln(n);

        for i:=1 to n do readln(A[i]);

        //Sắp xếp giảm dần

for i:=1 to n-1 do

        for j:=i+1 to n do if A[i]<A[j] then

        begin

                tam:=A[i]; A[i]:=A[j]; A[j]:=tam;

        end;

        write('a. Day sau khi sap xep giam dan la: ');

        for i:=1 to n do write(A[i],' '); writeln;

       //In các phần tử có giá trị tuyệt đối lớn nhất

        max:=abs(A[1]); 

        for i:=2 to n do if abs(A[i])>max then max:=abs(A[i]); 

        write('b. Cac phan tu co gia tri tuyet doi lon nhat: ');

       for i:=1 to n do if abs(A[i])=max then write(A[i],' '); writeln;

      //In ra các số chính phương

       write('c. Phan tu chinh phuong: '); 

       for i:=1 to n do if sqr(round(sqrt(A[i])))=A[i] then write(A[i],' '); writeln;

       //In ra phần tử chính

       dem:=0;

       for i:=1 to n do

        begin

                 xh:=0;

                 for j:=1 to n do if A[i]=A[j] then xh:=xh+1;

                 if xh>=n/2 then

                 begin

                        write('d. Phan tu chinh:',A[i]); dem:=dem+1;

                  end; if dem=1 then break;

       end;

       if dem=0 then write('d. Khong co phan tu chinh');

      readln;

end. 

               chúc bạn học tốt