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