for l:= 1 step 1 until n do
	for j:= 1,2,3 do
	begin	m:= READ; m:= READ; if j= 1 then B[l]:= m else
		if m != B[l] then begin NL; PRINTTEXT("fout");
					 ABSFIXT(4,0,l); ABSFIXT(4,0,j)
				   end;

		m:= 0;
		for i:= 3 step 1 until 23 do
		begin	k:= READ; if i= 19 then k:= READ;
			if k > 0 then m:= m+1; A[l,j,i]:= k;
			if k < 0 then i:= 23
		end;
		A[l,j,2]:= m
	end;