criado subprog08.c