1BSD/tests/t04.p

program roman(output);
var
	x,y: integer;
begin
	y := 1;
	repeat
		x := y;
		write(y, ' ');
		while x >= 1000 do
		begin
			write('m');
			x := x-1000
		end;
		while x >= 500 do
		begin
			write('d');
			x := x-500
		end;
		while x >= 100 do
		begin
			write('c');
			x := x-100
		end;
		if x >= 50 then
		begin
			write('l');
			x := x-50
		end;
		while x >= 10 do
		begin
			write('x');
			x := x-10
		end;
		if x >= 5 then
		begin
			write('v');
			x := x-5
		end;
		while x >= 1 do
		begin
			write('i');
			x := x-1
		end;
		writeln;
		y := 2*y;
	until y > 5000
end.