请将下列程序补充完整。