Program Mang;
Uses crt;
Var A: array[1..10000] of longint;
n, i, res, cnt: longint;
Begin
Clrscr;
Write('Nhap so luong phan tu: '); Readln(n);
res:=0; cnt:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
If A[i] mod 5 = 0 then
Begin
res := res + A[i];
inc(cnt);
End;
End;
Writeln('Tong cac so chia het cho 5: ',res);
Write('Co ',cnt,' so chia het cho 5');
Readln
End.