Немного нумерологии

[spamsink]

Целая нумерология:

                PROGRAM MAIN
                I=641125060200
                PRINT 10,I,I
             10 FORMAT(1XI12/1XO16)
                END
      *EXECUTE
 641125060200
 6411250602007150

Плавающая нумерология:

                PROGRAM MAIN
                A=.375400644066
       2        PRINT 10,A,A
             10 FORMAT(1XF14.12/3XO16)
                END
           *EXECUTE
 0.375400644066
   3754006440661122