SLE2 un rompecabesas (ALGORITMO) que no hey podido resolver

Estamos trabajando con SLE2 y nos dejaron una actividad y es hacer un algoritmo donde tu digitas un numero y el te da su simbolo en romano, ya e echo lo dificil pero cuando ejecuto y escribo un numero menor de 10 me sale dos veces el numero.

E aqui el algoritmo que e echo y a ver si alguien puede decirme donde esta mi error.

var
n1,n2,n3:numerico
inicio
cls()
leer(n1)
n2=int(n1/10)
n3=n1 % 10
si(n2==1)
{
imprimir("X"
sino
si(n2==2)
{
imprimir("XX"
sino
si(n2==3)
{
imprimir("XXX"
sino
si(n2==4)
{
imprimir("XL"
sino
si(n2==5)
{
imprimir("L"
sino
si(n2==6)
{
imprimir("LX"
sino
si(n2==7)
{
imprimir("LXX"
sino
si(n2==8)
{
imprimir("LXXX"
sino
si(n2==9)
{
imprimir("XC"
sino
si(n2==10)
{
imprimir("C"
}
}
}
}
}
}
}
}
}
}
si(n1==1)
{
imprimir("I"
sino
si(n1==2)
{
imprimir("II"
sino
si(n1==3)
{
imprimir("III"
sino
si(n1==4)
{
imprimir("VI"
sino
si(n1==5)
{
imprimir("V"
sino
si(n1==6)
{
imprimir("VI"
sino
si(n1==7)
{
imprimir("VII"
sino
si(n1==8)
{
imprimir("VIII"
sino
si(n1==9)
{
imprimir("IX"
sino
}
}
}
}
}
}
}
}
}
si(n3==1)
{
imprimir("I"
sino
si(n3==2)
{
imprimir("II"
sino
si(n3==3)
{
imprimir("III"
sino
si(n3==4)
{
imprimir("VI"
sino
si(n3==5)
{
imprimir("V"
sino
si(n3==6)
{
imprimir("VI"
sino
si(n3==7)
{
imprimir("VII"
sino
si(n3==8)
{
imprimir("VIII"
sino
si(n3==9)
{
imprimir("IX"
sino
}
}
}
}
}
}
}
}
}

fin

AGRADESCO LA AYUDA