'BEGIN'
    'INTEGER'
        I;
    'REAL'
        X;
    'ARRAY'
        A(/0, 3/);
    I := 1;
    'FOR' X := 1.0,
        2.0,
        3.0 'DO'
        'BEGIN'
        A(/I/):= X;
        I := I + 1
        'END';
'END'