var
  i, n, sum: integer;

begin
  writeln('Vvedite kol-vo uchenikov: ');
  read(n);
  sum:=0;
  for i := 1 to n do
  begin
    write('Ocenka dlya uchenika #',i,' = ');
    readln(n);
    if (n=5) then sum:=sum+1;
  end;
  writeln('Poluchili ocenku 5 = ',sum,' ch.');
end.