criado subprog05.c