program tong;
uses crt;
var A:array[1..200] of integer;
m,i:byte;
tong:longint;
begin
clrscr;
write('Nhap so luong phan tu M: '); readln(m);
tong:=0;
for i:=1 to m do
begin
write('Phan tu thu ',i,': '); readln(A[i]);
if A[i] mod 5=0 then tong:=tong+A[i];
end;
write('Tong cac so chia het cho 5 cua day la: ',tong);
readln;
end.