'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'
        N;
    'REAL'
        R;
    N := 2;
    R := 2.5&N;
    OUTREAL(99, R);
'END'