BeginEnd 0 0 begin 1 Statement 0 end IfThenElse 0 0 if 1 Expression 0 then 1 Statement 0 else 1 Statement 0 end WhileDo 0 0 while 1 Expression 0 do 1 Statement RepeatUntil 0 0 repeat 1 Statement 0 until 1 Expression ForToDo 0 0 for 1 VariableRef 0 := 1 Expression 0 to 1 Expression 0 do 1 Statement WithDo 0 0 with 1 VariableRef 0 do 1 Statement CaseOf 0 0 case 1 Expression 0 of 0 end Assignment 0 1 VariableRef 0 := 1 Expression Statement 1 1 BeginEnd 1 IfThenElse 1 WhileDo 1 RepeatUntil 1 ForToDo 1 WithDo 1 CaseOf 1 Assignment Expression 0 VariableRef 0 Program 0 1 BeginEnd 0 . Uses 0 0 uses 1 UnitName 0 , UnitName 0 Function 0 0 function 1 Identifier 0 ; 1 BeginEnd 0 ; Identifier 0 VarSection 0 0 var