begin 

    comment library5;

    integer procedure tsign(x);
        value 
            x;
        real 
            x;
        tsign :=
            if x > 0 then 
                1
            else if x < 0 then 
                 - 1
            else 
                0;

    integer procedure tentier(x);
        value 
            x;
        real 
            x;
        tentier := x - .5;

    real procedure tabs(x);
        value 
            x;
        real 
            x;
        tabs :=
            if x < 0 then 
                 - x
            else 
                x;

    real 
        x;
    for x := - 100,
         - 100.1,
         - 99.4,
         - .4,
         - .1,
        0,
        .1,
        .4,
        .6,
        300 do 
        if tsign(x) != sign(x) | tentier(x) != entier(x) |
            tabs(x) != abs(x) then 
            outreal(1, x)
end