program prog9
C  Вычисление колебаний математического маятника
      implicit none
      real L, g, T, Pi
      
      read *, L, g
      Pi = 4. * atan(1.)
      T = 2. * Pi * sqrt(L/g)
      print *, '    Колебания математического маятника'
      print *, '------------------------------------------'
      print *, 'Длина                      L =', L
      print *, 'Ускорение своб. падения    g =', g
      print *, 'Период колебаний маятника  T =', T
      
      end