uses crt;
var n, i: byte;
a:array[1..250] of byte;
s: word;
begin
write(‘n = ‘); readln(n);
s:=0;
for i:=1 to n do
begin
write(‘a[‘, i, ‘] = ‘);
readln(a[i]);
if a[i] mod 15 = 0 then
s:=s+a[i];
end;
Write(‘cac phan tu chia het cho 3 : ‘);
Write(‘cac phan tu chia het cho 5: ‘);
for i:=1 to n do if a[i] mod 15 = 0
then write(i, ‘ ‘);
Writeln; write(‘tong: ‘, s);
readln
end.