uses crt;
var m: array[1..100] of integer;
    n,i,max,j,t,scp: integer;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  for i:=1 to n do
   begin
    write ('nhap m[',i,']: ');  readln (m[i]);
    if max<=abs(m[i]) then max:=abs(m[i]);
   end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if m[i]<m[j] then
     begin
      t:=m[i];
      m[i]:=m[j];
      m[j]:=t;
     end;
  write ('day sau khi sap xep giam dan: ');
  for i:=1 to n do write (m[i],' ');
  writeln;
  writeln ('gia tri tuyet doi lon nhat trong day: ',max);
  write ('cac so chinh phuong trong day: ');
  for i:=1 to n do
   begin
    scp:=trunc(sqrt(m[i]));
    if sqr(scp)=m[i] then
    write (m[i],' ');
   end;
 readln;
end.

program phuongt;

uses crt;

  var A: array[1..100] of integer;

        i, j, n, cp, t, max: integer;

begin

          clrscr;

          write('Nhap n = '); readln(n);

          for i:=1 to n do

          begin

                     write('A[', i,'] = '); readln(A[i]);

          end;

          write('Sap xep giam dan: ');

          for i:=1 to n-1 do

               for j:=i+1 to n do

                     if A[i]<A[j] then

                     begin

                             t:=A[i];

                             A[i]:=A[j];

                             A[j]:=t;

                     end;

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

           max:=abs(A[1]);

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

           write('Gia tri tuyet doi lon nhat trong day la: ', max);

           write('Cac so chinh phuong trong day la: ');

           for i:=1 to n do

           begin

                      cp:=truc(sqrt(A[i]);

                      if sqr(cp)=A[i] then write(A[i]:4);

           end;

           readln

end.