begin
   real
     X;
   X ≔ - 1·0;
   OUTREAL(99, 0·0⭡X)
end