criado subprog07.c