'BEGIN' '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) 'OR' TENTIER(X) # ENTIER(X) 'OR' TABS(X) # ABS(X) 'THEN' OUTREAL(99, X) 'END'