100 BEGIN
110 ARRAY X[2:5];
115 INTEGER I;
120 X[5] := 13;
130 FOR I := 2 STEP 1 UNTIL 5 DO PRINT(I, X[I])
140 END
