uses crt;
var A:array[1..7] of integer;
    i,j,tam,tong,demchan,tongle:integer;
begin
   clrscr;
   tong:=0; tongle:=0; demchan:=0;
   for i:=1 to 7 do
   begin
      write('Nhap phan tu thu ',i,': '); 
      readln(A[i]);
      if A[i] mod 3 = 0 then tong:=tong+A[i];
      if A[i] mod 2 = 0 then inc(demchan);
      if i mod 2 <> 0 then tongle:=tongle+A[i];
   end;
   for i:=1 to 7-1 do
      for j:=i+1 to 7 do
      if A[i]>A[j] then
      begin
         tam:=A[i];
         A[i]:=A[j];
         A[j]:=tam;
      end;
   write('Cac so nguyen chia het cho 3 la: ');
   for i:=1 to 7 do if A[i] mod 3 = 0 then write(A[i]:4);
   writeln;
   write('Tong cua chung la: ',tong);
   writeln;
   write('Co ',demchan,' so chan');
   writeln;
   write('Mang sap xep theo thu tu tang dan: ');
   for i:=1 to 7 do write(A[i]:4);
   writeln;
   write('Tong cac so o vi tri le la: ',tongle);
   readln
end.

uses crt;
var a:array[1..7] of longint;
        i,d,s,sl,j,t:longint;
begin
        clrscr;
        write('Cac phan tu: ');
        for i:=1 to 7 do
                begin
                        read(a[i]);
                        if a[i] mod 3=0 then inc(s,a[i]);
                        if a[i] mod 2=0 then inc(d);
                        if i mod 2=1 then inc(sl,a[i]);
                end;
        write('b) Cac so nguyen chia het cho 3: ');
        for i:=1 to 7 do if a[i] mod 3=0 then write(a[i],' '); writeln;
        writeln('c) Tong cac so nguyen chia het cho 3: ',s);
        writeln('d) Co ',d,' so chan');
        for i:=1 to 7-1 do 
                for j:=i+1 to 7 do 
                        if a[i]>a[j] then
                                begin
                                        t:=a[i];
                                        a[i]:=a[j];
                                        a[j]:=t;
                                end;
        write('e) Day so tang dan: '); for i:=1 to 7 do write(a[i],' '); writeln;
        writeln('f) Tong cac so o vi tri le tu trai -> phai: ',sl);
        readln;
end.