Program ZX2017p3;
var n, num, i, b:longint;
a:real;
s, s1, s2:string;
begin
readln(n);
for i:=1 to n do
begin
readln(s);
s1 :=copy (s, 1, pos(' ',s)-1);
delete(s，1, pos(' ',s));
s2:=copy (s, 1, pos(' ',s)-1);
val(s2, a);
delete(s, 1,pos(' ',s));
val (s, b);
if (a>=37.5)and(b=1) then
begin
writeln(s1);
inc(num);
end;
end;
writeln(num);
end.
输入：
5
Zhang 38.3 0
Li 37.5 1
Wang 37.1 1
Zhao 39.0 1
Liu 38.2 1

输出：Li Zhao Liu 3