Uses Crt;

Var A,B : Array[1..500] of Integer;
   tam,min,s,dem,i,n,k : Integer;

Function cp( m : Integer) : Boolean;

Var i : Integer;

Begin
 For i:=1 to m do If i*i = m then cp:=true else cp:=false;

End;
Begin

 Clrscr;
 j:=1; dem:=0; s:=0;

 Write('Nhap n : '); Readln(n);

 For i:=1 to n do

  Begin

   Write('Nhap A[',i,'] : '); Readln(A[i]);

  End;

 Min:=A[1];

 For i:=2 to n do If A[i] < Min then Min := A[i];
 Writeln('Phan tu min trong mang la : ',Min);

 Writeln('Cac phan tu le trong mang la : ');

 For i:=1 to n do If A[i] mod 2 <> 0 then Writeln(A[i]);
 For i:=1 to n do If cp(A[i]) then 
  Begin

   B[j]:=A[i];

   j:=j+1;

  End;
 For i:=1 to j-2 do 
  For k:=i+1 to j-1 do If B[i]>B[k] then 
   Begin

    Tam:=B[i];

    B[i]:=B[k];

    B[k]:=Tam;

   End;

 Writeln('Cac so chinh phuong trong mang theo chieu tang dan la : ');

 For i:=1 to j-1 do Writeln(B[i]);

 For i:=1 to n do If A[i] mod 5 = 0 then Begin s:=s+A[i]; dem:=dem+1; End;
 Writeln('TBC Cac so chia ht cho 5 la : ',s/dem:1:0);

 Readln

End.