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.
