procedure expr egin if sym in[ plus, minus]then egin getsym; term; end else term while sym in [plus, minus] do begin getsym; term; en d 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;