exer18_1.c completed