begin(* statemen t米) begin if sym=ident getsym then(parsing ass st *) if sym>lparen begin then error (34) getsym; else if sym=becomes repeat then getsym getsym else error(13) if sym ident expression (fsys) end then error(35) else else getsym if sym=readsym until sym>comma then if sym>paren (* parsing read st.米) then error(33) end6 begin(*statement*) if sym=ident then (*parsing ass.st.*) begin getsym; if sym=becomes then getsym else error(13); expression(fsys); end else if sym=readsym then (* parsing read st.*) begin getsym; if sym<>lparen then error(34) else repeat getsym; if sym <> ident then error(35) else getsym until sym<>comma; if sym<>rparen then error(33); end