Prorgam zadacha;
Const n=10;
Var a:array [1..10] of real;
i,s:integer;
Begin
S:=0;
For i:=1 to n do begin
Readln(a[i]);
If (a[i]>36,6) then s:=s+1;
End;
Writeln(s);
End.
