begin Number := 1; repeat Write (Output, Number, , '); Rem := Number; while Rem >= 1000 do begin Write (Output, 'M'); Rem := Rem - 1000 end; if Rem >= 900 then begin Write (Output, 'CM'); Rem := Rem - 900 end else if Rem >= 500 then begin Write (Output, 'D'); Rem "- Rem - 500 end else if Rem >= 400 then begin Write (Output, 'CD'); Rem := Rem - 400 end; while Rem >= 100 do begin Write (Output, 'C'); Rem := Rem - 100 end; if Rem >= 90 then begin Write (Output, 'XC'); Rem:= Rem - 90 end else if Rem >= 50 then begin Write (Output, 'L'); Rem "= Rem - 50 end else if Rem >= 40 then begin Write (Output, 'XL'); Rem := Rem - 40 end; while Rem >= 10 do begin Write (Output, 'X'); Rem:= Rem - 10 end; if Rem = 9 then begin Write (Output, 'IX'); Rem:= Rem - 9 end else if Rem >= 5 then begin Write (Output, 'V'); Rem"= Rem - 5 end else if Rem = 4 then begin Write (Output, 'IV'); Rem := Rem - 4 end; while Rem >= 1 do begin Write (Output, 'I'); Rem:= Rem - 1; end; Writeln(Output); Number := Number * 2 until Number > 5000 end " 

