'BEGIN' 'INTEGER'I,J; 'REAL' X;
J:=15;
'FOR' I:=-10 'STEP' 1 'UNTIL' 10 'DO' 'BEGIN'
      X:=9.987654321*10**I;
      PRINT(X,0,10); PRINT(X*10**15,0,10);
      PRINT(X*10**1,0,10);
      NEWLINE
      'END';
'END';