Program HOC24;
var a: array[1..15] of integer;
i: byte;
t: longint;
begin
for i:=1 to 15 do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
t:=0;
write('Cac so chia het cho 5 la: ');
for i:=1 to 15 do if a[i] mod 5=0 then
begin
write(a[i].' ');
t:=t+a[i];
end;
writeln;
write('Tong cac so chia het cho 5 la: ',t);
readln
end.