'BEGIN'
    'REAL'
        X,
        Y;
    'INTEGER'
        I;
    'FOR' X := &6,
        &+6,
        &-6,
        .6,
        6,
        6.6,
        .6&6,
        .6&+6,
        .6&-6,
        6&6,
        6&+6,
        6&-6,
        6.6&6,
        6.6&+6,
        6.6&-6 'DO'
        OUTREAL(99, X);
    OUTREAL(99, .0000000000000000123456789123456789);
    OUTREAL(99, 3.1415926535897932384626433832795028841972);
    X := Y := .0000001;
    'FOR' I := 1 'STEP' 1 'UNTIL' 13 'DO'
        'BEGIN'
        OUTREAL(99, X);
        OUTREAL(99, Y);
        X := 10.0 * X;
        Y := 110 * X / 10.0
        'END'
'END'