分程序(cos+ ident number var ident procedure + ident 分程序 语句const ident = number , ; var ident , ; ; procedure ident ; 分程序 语句 分程序