title: Program To Find The Area Of Pentagon
signature: program_to_find_the_area_of_pentagon <- function(a) {
test_code: 
  
  
  # SOLUTION CODE
  # ============================================
  PLACEHOLDER_CODE_BODY
  
  # TESTING CODE 
  # ============================================
  validate_solution <- function(actual, expected) {
      abs(actual - expected) < 1e-09
  }
  
  driver <- function(a, expected){
      if (validate_solution(PLACEHOLDER_FN_NAME(a), expected)){
          "PASSED"
      } else{
          "FAILED"
      }
  }
  
  main <- function() {
      cat(sprintf("TEST-0...%s\n",driver(
          2009.019461888707, 
          6944120.6857642615
      )))
  
      cat(sprintf("TEST-1...%s\n",driver(
          -1480.5131394215787, 
          3771147.371815937
      )))
  
      cat(sprintf("TEST-2...%s\n",driver(
          357.7870347569567, 
          220240.9998483103
      )))
  
      cat(sprintf("TEST-3...%s\n",driver(
          -8040.293697508038, 
          111222537.30911414
      )))
  
      cat(sprintf("TEST-4...%s\n",driver(
          3821.882657293133, 
          25130647.008061722
      )))
  
      cat(sprintf("TEST-5...%s\n",driver(
          -6840.635072240347, 
          80508515.3102342
      )))
  
      cat(sprintf("TEST-6...%s\n",driver(
          1623.036598830132, 
          4532163.809416133
      )))
  
      cat(sprintf("TEST-7...%s\n",driver(
          -9714.00706195298, 
          162347573.54592204
      )))
  
      cat(sprintf("TEST-8...%s\n",driver(
          3916.454769669618, 
          26389745.561382204
      )))
  
      cat(sprintf("TEST-9...%s\n",driver(
          -669.068424712943, 
          770176.1075446572
      )))
  
  }
  
  main()
source_py: def program_to_find_the_area_of_pentagon(a):
      area = (((sqrt((5 * (5 + (2 * sqrt(5))))) * a) * a) / 4)
      return area
source_cpp: float program_to_find_the_area_of_pentagon(float a) {
    float area;
    area = ( sqrt ( 5 * ( 5 + 2 * ( sqrt ( 5 ) ) ) ) * a * a ) / 4;
    return area;
  }