Proceso ingresacapital
Definir g como cadena;
Definir h como entero;
Dimension g(6);
h<-0;
Mientras h<6 Hacer
Escribir "ingrese capital";
Leer g(h);
h<-h+1;
FinMientras
Para h<-5 Hasta 0 Con Paso -1 Hacer
Escribir g(h);
FinPara

FinProceso