我写的这么弱的程序都秒杀了：

program victoria;

var

i,j,k,n,m,max:longint;

begin

readln(n,k);

if k=1 then

writeln(n)

else begin

for i:=1 to n do begin

j:=1;

m:=0;

while j0 do begin

inc(m);

read(j);

end;

dec(m);

if m>=k then

inc(max);

end;

writeln(max);

end;

end.