Ejercicio 25 de Pseint: pasar de numero a letras

Proceso Letras_numeros
Definir a,b,f Como Entero;
Definir c,d,e Como Caracter;
Dimension c(10);
Dimension d(10);
Dimension e(5);
Escribir "Ingrese un numero entre 1 y 100: ";
Leer a;
f<-a;
c(0)<-"Cero";c(1)<-"Uno";c(2)<-"Dos";c(3)<-"Tres";c(4)<-"Cuatro";c(5)<-"Cinco";c(6)<-"Seis";c(7)<-"Siete";c(8)<-"Ocho";c(9)<-"Nueve";
e(0)<-"Once";e(1)<-"Doce";e(2)<-"Trece";e(3)<-"Catorce";e(4)<-"Quince";
d(0)<-"Dies";d(1)<-"Veinte";d(2)<-"Treinta";d(3)<-"Cuarenta";d(4)<-"Cincuenta";d(5)<-"Sesenta";d(6)<-"Setenta";d(7)<-"Ochenta";d(8)<-"Noventa";d(9)<-"Cien";

Si a=0 | a=1 | a=2 | a=3 | a=4 | a=5 | a=6 | a=7 | a=8 | a=9 Entonces
Escribir c(a);
Sino
Si a=11 | a=12 | a=13 | a=14 | a=15 Entonces
a<-a-11;
Escribir e(a);
Sino
Si a=10 | a=20 | a=30 | a=40 | a=50 | a=60 | a=70 | a=80 | a=90 | a=100 Entonces
a<-trunc(a/10);
a<-a-1;
Escribir d(a);
Sino
Si a<>1 | a<>2 | a<>3 | a<>4 | a<>5 | a<>6 | a<>7 | a<>8 | a<>9 | a<>10 | a<>11 | a<>12 | a<>13 | a<>14 | a<>15 | a<>20 | a<>30 | a<>40 | a<>50 | a<>60 | a<>70 | a<>80 | a<>90 | a<>100  Entonces
f<-a;
a<-trunc(a/10);
a<-a-1;
b<-f%10;

Escribir d(a)," Y ", c(b);


FinSi
FinSi
FinSi
FinSi
FinProceso