vale perrin ....
= ya caxe como era es asi por si le sirve a alguien
var
num,col:numerico
a:cadena
inicio
cls ( )
num = 0
go ()
imprimir ("ingrese un numero")
leer (num)
mientras (num >= 1000)
{imprimir ("M")
num = num - 1000}
si (num >= 900)
{imprimir ("CM")
num = num - 900}
si (num >= 500)
{imprimir ("D")
num = num - 500}
mientras (num >= 100 )
{imprimir ("C")
num = num - 100}
si (num >= 90)
{imprimir ("XC")
num = num - 90}
si (num >= 50)
{imprimir ("L")
num = num - 50}
si (num >= 40)
{imprimir ("XL")
num = num - 40}
mientras (num >= 10)
{imprimir ("X")
num = num - 10}
si (num == 9)
{imprimir ("IX")
num = num - 9}
si (num >= 5)
{imprimir ("V")
num = num - 5}
si (num >= 4)
{imprimir ("IV")
num = num - 4}
mientras (num > 0)
{imprimir ("I")
num = num - 1}
fin