uses crt;
var d:text; i,n,tong:longint; a:array[1..100000]of longint;
begin
clrscr;
assign(d,'dulieu.txt');reset(D);
readln(d,n);
for i:=1 to n do read(d,a[i]);
close(d);
assign(d,'ketqua.txt');rewrite(D);
writeln(d,'Tong cac so chia het cho 5:');
for i:=1 to n do
if a[i] mod 5=0 then inc(tong,a[i]);
writeln(d,tong);
close(d);
end.