'BEGIN'
    'INTEGER'
        I,
        SUM;
    SUM := 0;
    'FOR' I := 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1,
        I + 1,  I + 1,  I + 1,  I + 1,  I + 1,  I + 1 'DO'
        SUM := SUM + I;
    OUTREAL(99, SUM);
'END'