'BEGIN'
'COMMENT' LIBRARY5;
    'REAL'
        R;
    'BOOLEAN'
        B;
    'INTEGER''PROCEDURE' F(X);
        'REAL'
            X;
        F := 0;
    'INTEGER'
        I,
        N,
        S;
    'INTEGER''PROCEDURE' G(Y);
        'BOOLEAN'
            Y;
        G :=
            'IF' Y 'THEN'
                2
            'ELSE'
                3;
    R := 3.5;
    N := 4;
    S := R + (1) + N;
    OUTREAL(99, S);
    'BEGIN'
        'REAL' 'ARRAY'
            RA[F('IF' 'TRUE' 'THEN' 0 'ELSE' 0) : 1];
        'ARRAY'
            A[ - 1 : F(0)];
        'REAL' 'PROCEDURE' Q;
            Q := R^2;
        S :=
            'IF' + 0 = 0 'THEN'
                SQRT(Q)
            'ELSE'
                1
    'END';
    OUTREAL(99, S);
    'BEGIN'
        'PROCEDURE' W(T, U);
            'STRING'
                T,
                U;
            ;
        W( < A 'REAL' >, < B 'END' > );
        'FOR' I := 0 'DO'
    'END';
    'IF' 2 = 2 'THEN'
        'BEGIN'
        I := 1
        'END'
    'ELSE'
        I := 0;
    'FOR' I := 5 'WHILE' R < N 'DO'
        C : 'BEGIN'
        B := 'TRUE';
        N :=
            'IF' B 'OR' 'NOT' B 'THEN'
                G(B 'OR' B) 'DIV' S
            'ELSE'
                10;
        B :=
            'IF' B 'THEN'
                'FALSE' 'OR' 'FALSE'
            'ELSE'
                'TRUE';
        R := N / 2
        'END';
    OUTREAL(99, N);
'END'