var
    f:text;
    kol,k:longint;
    min,sr,vz,de:real;
    c:char;
begin
    assign(f,'input.txt');
    min:=-1;
    reset(f);
    k:=0;
    while not(eof(f)) do
        begin
			read(f,c);
			while c<>' ' do
				read(f,c);
			readln(f,kol,vz,de);
			sr:=(vz+de)/kol;
			if abs(min-sr)<0.0001 then inc(k)
			else
				if(min=-1) or (min-sr>=0.0001) then begin
					min:=sr;
					k:=1;
				end;
			readln(f);
        end;
    close(f);
    writeln(k);
end.