begin (*statement*) 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); then error (35) end else else getsym if sym=readsym until sym<>comma; then if sym<>rparen (parsing read st.*) then error (33); end 66 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