Program hotrotinhoc;
var b: array[1..100] of integer;
i,n,t: integer;
begin
write('Nhap so luong phan tu : '); readln(n);
for i:=1 to n do
begin
write('b[',i,']='); readln(b[i]);
end;
t:=0;
for i:=1 to n do
if b[i] mod 5=0 then t:=t+b[i];
write('Tong cac phan tu co gia tri chia het cho 5 trong mang B la : ',t);
readln
end.