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

      end