Var A: array [1..7] of integer;
i, k: integer;
Begin
K:=0;
For i:=1 to 7 do
Readln(a[i]);
If a[i] mod 5=0 then k:=k+1;
Writeln (k)
End.
Var A: array [1..7] of integer;
i, k: integer;
Begin
K:=0;
For i:=1 to 7 do
Readln(a[i]);
If a[i] mod 5=0 then k:=k+1;
Writeln (k)
End.