sub Nb2Rom$(N)
 a$=""
 switch int(mod(N,10000)/1000)
  case 0: a$=a$:break
  case 1: a$=a$+"M":break
  case 2: a$=a$+"MM":break
  case 3: a$=a$+"MMM":break
  case 4: a$=a$+"MMMM":break
  default : print "Le nombre doit etre plus petit que 4999":a$="???":break
 end switch
 switch int(mod(N,1000)/100)
  case 1: a$=a$+"C":break
  case 2: a$=a$+"CC":break
  case 3: a$=a$+"CCC":break
  case 4: a$=a$+"CD":break
  case 5: a$=a$+"D":break
  case 6: a$=a$+"DC":break
  case 7: a$=a$+"DCC":break
  case 8: a$=a$+"DCCC":break
  case 9: a$=a$+"CM":break 
 end switch
 switch int(mod(N,100)/10)
  case 1: a$=a$+"X":break
  case 2: a$=a$+"XX":break
  case 3: a$=a$+"XXX":break
  case 4: a$=a$+"XL":break
  case 5: a$=a$+"L":break
  case 6: a$=a$+"LX":break
  case 7: a$=a$+"LXX":break
  case 8: a$=a$+"LXXX":break
  case 9: a$=a$+"XC":break
 end switch
 switch mod(N,10)
  case 1: a$=a$+"I":break
  case 2: a$=a$+"II":break
  case 3: a$=a$+"III":break
  case 4: a$=a$+"IV":break
  case 5: a$=a$+"V":break
  case 6: a$=a$+"VI":break
  case 7: a$=a$+"VII":break
  case 8: a$=a$+"VIII":break
  case 9: a$=a$+"IX":break
 end switch
 return a$
end sub

print "Entrez votre nombre entre 0 et 4999"
input nb
NbRom$=Nb2Rom$(nb)
print str$(nb)+" = "+NbRom$