uses crt;
var A : array [1 .. 100] of integer;
i, N, d : integer;
begin
clrscr;
write('Nhap so phan tu = '); readln(N);
write('Nhap day gom ', N ,' phan tu : ');
d := 0; for i := 1 to N do begin read(A[i]);
if (A[i] mod 2 = 0) and (A[i] mod 5 = 0)
then d := d + 1; end;
write('Co ', d ,' so chan chia het cho 5');
readln
end.