program main
 implicit none

 integer(4) :: test_radius 
 integer(4) :: check_rate
 
 real(4), parameter :: pi = 3.14
 real(4), parameter :: tr = 1.e0
 
 real(4) :: test_circle
 real(4) :: check_circle
 
 read(5, *) test_radius
 
 test_cirle = pi * tr
 check_circle = pi * test_radius
 
 check_rate = check_circle / test_circle
 
 write(6, *) check_rate
 
end program main