begin 
    real 
        a,
        x;
    x := - 10.0;
    a := (if x < 0 then x - 1 else if x > 1 then x + 1 else 
        x;
end