uses crt;
var a: array[1..150] of integer;
i, n, sum : integer;
begin
clrscr;
sum := 0;
write('nhap n : '); readln(n);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : '); readln(a[i]);
if (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then sum := sum + a[i];
end;
write('tong cac so chia het cho 3 va 5 : ', sum);
readln
end.