Create comprog1.c