program oken;
uses crt;
type mang = array [1..500] of integer;
var a: mang;
    n: integer;
procedure nhap(n: integer);
    var i: integer;
    begin
        for i:=1 to n do
            begin
                write('a[',i,']: ');
                readln(a[i]);
            end;
    end;
function kq(a: mang;n: integer): integer;
    var i,s: integer;
    begin
        for i:=1 to n do
            if (a[i] mod 3=0) and (a[i] mod 5=0) then
                s:=s+a[i];
        kq:=s;
    end;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    nhap(n);
    write('Tong chia het cho 3 va 5: ',kq(a,n));
    readln;
end.

#include<bits/stdc++.h>
using namespace std;
void nhapmang(int *a, int &n)
{
    for (int i = 0; i<n; i++)
    {
        cout << "a[" << i << "]=";
        cin >> *(a + i);
    }
}
bool c3(int a)
{
    if (a%3==0){
        return true;
    }
    return false;
}
int main()
{
    int n,total=0;
    cin>>n;
    int arr[n];
    nhapmang(arr,n);
    for(int i=0;i<n;i++){
        if(arr[i]%5==0||c3(arr[i])){
            total+=arr[i];
        }
    }
    cout<<total;
    //samon247
    return 0;
}