bprogram min 

uses crt 

var A: array [1...250] of integer

tong :integer;

begin 

tong:=0

writeln(‘nhap n:’); readln (n) 

forr i:=1 to n do 

begin 

writeln (‘nhap phan tu thu ‘,i);

readln (A[i] );

end

for i:=1 to n do 

begin

if (A[i] mod 3=0) 

then tong:=tong +A[i];

end

writeln (Tong cac phan tu chia het cho 3) 

readln ;

end