Realice un programa que al pedir un numero me muestre su equivalente en letras ej. 15= quince

Realice un programa que al pedir un numero me muestre su equivalente en letras ej. 15à quince. 

Solución:

Proceso numeros_a_letras

Definir Numero como Numerico;

Escribir "Ingrese un número entre 0 y 1000";

Leer Numero;

Definir SePuedeConvertir Como Logico;

SePuedeConvertir<-Verdadero;

Si Numero=0 Entonces

Escribir "cero";

FinSi

Si Numero<>trunc(numero) Entonces

Escribir "El número debe ser entero";

SePuedeConvertir<-Falso;

FinSi

Si Numero>1000 Entonces

Escribir "Esta fuera del rango";

SePuedeConvertir<-Falso;

FinSi

Si Numero<0 Entonces

Escribir "Debe ser mayor que cero";

SePuedeConvertir<-Falso;

FinSi

Si SePuedeConvertir Entonces

Si Numero=1000 Entonces

Escribir "mil";

Sino

Dimension nu[10], nd[10], nc[10]; 

Definir nu,nd,nc Como Caracter;

nu(0)<-''; nu(1]<-'uno'; nu(2)<-'dos'; nu(3)<-'tres'; nu(4)<-'cuatro'; nu(5)<-'cinco'; nu[6)<-'seis'; nu(7)<-'siete'; nu(8)<-'ocho'; nu(9)<-'nueve';

nd(0)<-''; nd(1)<-'diez'; nd(2)<-'veinte'; nd(3)<-'treinta'; nd(4)<-'cuarenta'; nd(5)<-'cincuenta'; nd(6)<-'sesenta'; nd(7)<-'setenta'; nd(8)<-'ochenta'; nd(9)<-'noventa';

nc(0)<-''; nc(1)<-'cien'; nc(2)<-'doscientos'; nc(3)<-'trecientos'; nc(4)<-'cuatrocientos'; nc(5)<-'quinientos'; nc(6)<-'seiscientos'; nc(7)<-'setecientos'; nc(8)<-'ochocientos'; nc(9)<-'Novecientos';

Definir centenas,decenas,unidades como numeros;

centenas<-trunc(Numero/100) % 10;

decenas<-trunc(Numero/10) % 10;

unidades<-Numero % 10;

Escribir nc[centenas],nd[decenas],nu[unidades];

FinSi

FinSi

FinProceso