begin
   integer
     I;
   real
     X;
   I ≔ 0;
   X ≔ 0·0;
   OUTREAL(99, X⭡I)
end