记录编号	235701	评测结果	AAAAAAAAAA
题目名称	[Vijos1021] Victoria的舞会1	最终得分	100
用户昵称	zeppoe	是否通过	通过
代码语言	Pascal	运行时间	0.004 s
提交时间	2016-03-11 13:29:38	内存使用	0.17 MiB

program cc;
var
n,k,i,ans,c:longint;
l:array[1..1000]of longint;
begin
assign(input,'victoria1.in');
assign(output,'victoria1.out');
reset(input);
rewrite(output);
read(n,k);
for i:=1 to n do
begin
read(c);
while c<>0  do
begin
inc(l[i]);
read(c);
end;
if l[i]>=k then inc(ans);
end;
writeln(ans);
close(input);
close(output);
end.