criado subprog06.c