'BEGIN' 'REAL' X'INTEGER' I; 'ARRAY' A(/0 : 3/); I := 0; 'FOR' X := 1.23, 2.34, 3.45 'DO' 'BEGIN' A(/I/):= X; I := I + 1 'END'; 'END'