program prog6
      
      implicit none
      
      real a, b, pi
      integer i1, i2, i3
      parameter (pi=3.1415)
      
      a = pi
      b = -.0005
      i1 = 1
      i2 = 1
      i3 = 1
      
      print *, a, b
      print *, i1, i2, i3
      
      end