Numeros romanos

Algoritmo sin_titulo
 definir num Como Entero
 
 Escribir "Ingrese numero entre 1 y 1000"
 leer num
 si num = 1000 Entonces
  Escribir 'su numero romano es:'
  Escribir 'M'
 SiNo
  c<-trunc(num/100) mod 10
  d<-trunc(num/10) mod 10
  u<-num mod 10
  Segun u Hacer
   1:
    r<-"I"
   2:
    r<-"II"
   3:
    r<-"III"
   4:
    r<-"IV"
   5:
    r<-"V"
   6:
    r<-"VI"
   7:
    r<-"VII"
   8:
    r<-"VIII"
   9:
    r<-"IX"
  FinSegun
  
  
  Segun d Hacer
   1:
    r<-"X"+r
   2:
    r<- "XX"+r
   3:
    r<- "XXX"+r
   4:
    r<-"XL"+r
   5:
    r<-"L"+r
   6:
    r<-"LX"+r
   7:
    r<-"LXX"+r
   8:
    r<-"LXXX"+r
   9:
    r<-"XC"+r
  FinSegun
  
  Segun c Hacer
   1:
    r<-"C"+r
   2:
    r<-"CC"+r
   3:
    r<-"CCC"+r
   4:
    r<-"CD"+r
   5:
    r<-"D"+r
   6:
    r<-"DC"+r
   7:
    r<-"DCC"+r
   8:
    r<-"DCCC"+r
   9:
    r<-"CM"+r
  FinSegun
  
  
  
  escribir "su numero romano es:", r
  
 FinSi
FinAlgoritmo