100 BEGIN
110 INTEGER I;
120 FOR I := 1 STEP 1 UNTIL 5 DO PRINT(I)
130 END
