4-Pi in fortran

C kaut kaada fortran programminja
C
      PROGRAM AXX
      DOUBLE PRECISION  PI,A
      PI=3.1415926535897932D0
      A=4.0D0-PI
      PRINT *,
     +'4-Pi=',
     +A

C  tas ir viss
C      STOP 'BEIGAS'
      END