BSD 1 development

[unix-history] / 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.