program megszamlalas;
const n=8;
var i, s: integer;
    a: array [1..n] of integer;
begin
  s:=0;
  for i:= 1 to n do
  begin
    write(' a[',i,']='); readln(a[i]);
    if a[i]=5 then s:=s+1;
  end;
  writeln('A tombben ',s,' darab 5-os van');
  readln;
end.