'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        A,
        X;
    X := 0.8;
    A := ('IF' X >= 0 'AND' X <= 1 'THEN' X * X - 3 * X + 4 'ELSE'
        0);
       OUTREAL(A);
'END'