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.