The Concept of Action  45  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 " 