program main
! This program calculates vertical motion under gravity 
implicit none 
! Gravitational acceleration
real, parameter :: g = 9.81

! Variable Declarations
real :: s ! dicplacement
real :: u ! initial velocity
real :: t ! time 
print*, "enter the valeus of u,t"
read*, u,t 

! displacement
s = u*t - (g*t*t)/2
print*, "displacement", s 
end program main