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

uses crt;

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

i, n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

write('Nhap mang gom ', n ,' so : ');

for i := 1 to n do read(A[i]);

write('Cac phan tu chia het cho 3 :');

for i := 1 to n do if A[i] mod 3 = 0 then write(A[i],' ');

readln

end.