NL; OUT(6,0,k); OUT(6,0,c1); OUT(6,0,c2); OUT(6,0,t);
	NL; OUT(6,0,3); OUT(6,0,3);
	for l:= d1,d2 do
	for j:= 1,2,3 do
	begin	NL; OUT(6,0,A[l,j,2]); NL;
		for i:= 3 step 1 until 23 do
		begin	m:= A[l,j,i]; if m > 0 then OUT(4,2, i/2);
			if m < 0 then
			begin	NL;
				for i:= 3 step 1 until 23 do
				begin	m:= A[l,j,i]; if m > 0 then OUT(4,4,ln(m)/ln(2));
					if m < 0 then i:= 23
				end;
				i:= 23
			end
		end
	end;
	if k != a then goto L
end
end
apv