Var a:array[1..100] of integer;
i,n,tsc,tscch:integer;
Begin
Write(' Nhap so ptu N = '); Readln(n);
tsc:=0;
For i:= 1 to n do
Begin
Write(' Nhap a[',i,']= '); Readln(a[i]);
If a[i] mod 2 = 0 then tsc:=tsc+a[i];
If (a[i] mod 2 = 0) and (a[i] mod 3 = 0) then tscch:=tscch+a[i];
End;
Write(' Tong cac so chan cua day so tren la: ',tsc);
Writeln;
Write(' Tong cac so chan chia het cho 3 la: ',tscch);
Readln
End.

program tinh_tong;

Uses crt;

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

      n,i,t,tc:integer;

begin

      clrscr;

      write('Nhap so luong phan tu: ');   readln(n);

      t:=0;   tc:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');   readln(A[i]);

                  t:=t+A[i];

                  if (A[i] mod 2=0) and (A[i] mod 3=0) then tc:=tc+A[i];

            end;

      writeln('a. Tong cac phan tu la: ',t);

      writeln('b. Tong cac phan tu chan chia het cho 3 la: ',t);

      readln;

end.