program mangvatong;

uses crt;

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

      n,i,tong:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

tong:=0;

for i:=1 to n do

 begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i]);

  if A[i] mod 3=0 then tong:=tong+A[i];

 end;

writeln('Mang vua nhap la:');

for i:=1 to n do

 write(A[i]:4);

writeln;

write('Tong cac phan tu cua mang chia het cho 3 la: ',tong);

readln

end.

Program NN;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 3 = 0 then s:=s+A[i];
        End;
        For i:=1 to n do
                Write(A[i],' ');
        Writeln;
        Write(s);
        Readln
End.