NEWprog3_1.c