procedure expr; begin if sym in plus,minus then begin getsym;term; end else term; while sym in [plus,minus]do begin getsym;term; end end; 1010 procedure expr; begin if sym in [ plus, minus ] then begin getsym; term; end else term; while sym in [plus, minus] do begin getsym; term; end end;