begin integerI,J; real X;
   J ≔ 5;
   for I ≔ 10 step 1 until 10 do begin
         X ≔ ·987654321×10⭡I;
         PRINT(X,0,10); PRINT(X×10⭡15,0,10);
         PRINT(X×10⭡1,0,10);
         NEWLINE
      end;
end;