comment Programma voor decimale - binale conversie. M L Potters, opdracht R 500, code-nr MLP 200461/1159;
begin	integer D, d, B, b, nf, nw, mf, mw, dec, bin, i, j, k, carry, tweka;
	D:= read; d:= read; B:= read; b:= read; nf:= read; nw:= read;
	dec:= 10 ** d; bin:= 2 ** b; carry:= 0; NLCR; TAB; mf:= 0; mw:= 0;
	begin	integer array N[1 : D];
		for j:= 1 step 1 until D do N[j]:= read;
		for i:= 1 step 1 until B do
		begin	for j:= D step -1 until 1 do
			begin	N[j]:= bin * N[j] + carry;
				carry:= N[j] % dec;
				N[j]:= N[j] - carry * dec
			end;
			tweka:= bin; for k:= b - 1 step -1 until 0 do
			begin	tweka:= tweka % 2; 
				if carry < tweka then PRINTTEXT ("0")
						 else begin PRINTTEXT ("1"); carry:= carry - tweka end;
				mf:= mf + 1; if mf = nf then
				begin	SPACE (2); mf:= 0; mw:= mw + 1;
					if mw = nw then begin NLCR; TAB; mw:= 0 end
				end
			end
		end
	end
end

comment Programma voor decimale - binale conversie. M L Potters, opdracht R 500, code-nr MLP 200461/1159;
begin	integer D, d, B, b, nf, nw, mf, mw, dec, bin, i, j, k, carry, tweka;
	D:= read; d:= read; B:= read; b:= read; nf:= read; nw:= read;
	dec:= 10 ** d; bin:= 2 ** b; carry:= 0; NLCR; TAB; mf:= 0; mw:= 0;
	begin	integer array N[1 : D];
		for j:= 1 step 1 until D do N[j]:= read;
		for i:= 1 step 1 until B do
		begin	for j:= D step -1 until 1 do
			begin	N[j]:= bin * N[j] + carry;
				carry:= N[j] % dec;
				N[j]:= N[j] - carry * dec
			end;
			tweka:= bin; for k:= b - 1 step -1 until 0 do
			begin	tweka:= tweka % 2; 
				if carry < tweka then PRINTTEXT ("0")
						 else begin PRINTTEXT ("1"); carry:= carry - tweka end;
				mf:= mf + 1; if mf = nf then
				begin	SPACE (2); mf:= 0; mw:= mw + 1;
					if mw = nw then begin NLCR; TAB; mw:= 0 end
				end
			end
		end
	end
end