Algoritmo 15 Con Subproceso

SubProceso registranombre
Escribir " dame tu nombre:"

FinSubProceso

SubProceso escribenombre(nom)
Escribir " tu nombre es:",nom

FinSubProceso

Proceso pidenombre
registranombre
Leer nombre
Para X<-1 Hasta 5 Con Paso 1 Hacer
escribenombre(nombre)
FinPara

FinProceso