task10

var n,k,i,j:integer;
    l,t,c,b,m:integer;
    s:string;
    a:array[9..25] of integer;
Begin

  readln(n);
  readln(k);

  b:=0;

  for i:=1 to n do begin

    readln(s);

    t:=pos(' ',s);
    delete(s,1,t);

    for j:=1 to 3 do begin

      t:=pos(' ',s);

      if t<>0 then for l:=1 to t-1 do c:=c*10+ord(s[l])-ord('0')
       else for l:=1 to length(s) do c:=c*10+ord(s[l])-ord('0');

      b:=b+c;
      c:=0;
      delete(s,1,t);

    end;

    if b>=9 then a[b]:=a[b]+1;

    b:=0;
  end;

  m:=a[25];
  j:=25;

  if m>k then writeln('Проходной балл не определить')
   else begin
    while (m<=k) and (j>9) do begin
      j:=j-1;
      m:=m+a[j];
    end;

    if j=9 then writeln(9)
     else writeln(j+1);

  end;

End.