Uses crt;
var a: array[1..50] of longint;
i,n,tong: integer;
begin
clrscr;
write('nhap n: '); readln(n);
for i:=1 to n do read(a[i]);
writeln;
write('Tong cac so chia het cho 3: ');
for i:=1 to n do
if a[i] mod 3=0 then
begin
tong:=tong+a[i];
write(a[i]);
end;
writeln;
write('Tong cac so chia het cho 5: ');
for i:=1 to n do
if a[i] mod 3=0 then
begin
tong:=tong+a[i];
write(a[i]);
end;
writeln;
write('Tong la: ',tong);
readln;
end.
