uses crt;
var N:array[1..100] of integer;
      t:integer;
      i,k,j,S:bye;
begin
      S:=0;
      write('nhap so phan tu : ",k);readln(k);
      for i:=1 to k do
           begin
                write('nhap phan tu thu ",i," : ");readln(N[i]);
           end;
      for i:=1 to k do 
           if (N[i] mod 3 =0) and ( N[i] mod 5 =0 ) then S:=S+1;
writeln('phan tu chia het cho 3 va 5 la ',S);
for i:=1 to k do
for j:=i+1 to k do 
     if N[i]>N[j] then
             begin
                  t:=N[i];
                  N[i]:=N[j];
                  N[j]:=t;
               end;
write('day sau khi sap xep la : ',N[1]);
for i:=2 to k do
write(", ",N[i]);
readln
end.