accept activity array as await begin by case const definition div do else elsif end exception exit for if implementation implements import in is loop mod module new nil object of on operator or procedure protocol record refines repeat return self termination then to type until var while barrier immutable locked private protected public ref sealed shared value abs assert cap copy copyvalue dec excl false halt inc len low max min odd pred read readln reason size succ true write writeln boolean cardinal char fixed integer real set string