begin
   real
     X,
     Y;
   integer
     I;
   for X ≔ ⏨6,⏨+6,⏨-6,·6,
     6,
     6·6,·6⏨6,·6⏨+6,·6⏨-6,
     6⏨6,
     6⏨+6,
     6⏨-6,
     6·6⏨6,
     6·6⏨+6,
     6·6⏨-6 do
        OUTREAL(99, X);
   OUTREAL(99, ·0000000000000000123456789123456789);
   OUTREAL(99, 3·1415926535897932384626433832795028841972);
   X ≔ Y ≔ ·0000001;
   for I ≔ 1 step 1 until 13 do
      begin
         OUTREAL(99, X);
         OUTREAL(99, Y);
         X ≔ 10·0 × X;
         Y ≔ 110 × X / 10·0
      end
end