Declare the following objects:

a) feet         an integer variable

    INTEGER :: feet

b) miles        a real variable

    REAL :: miles

c) Town         a character variable of up to 20 letters

    CHARACTER(LEN=20) :: Town

d) home_town    a constant with value set to LIVERPOOL

    CHARACTER(LEN=*), PARAMETER :: home_town = "LIVERPOOL"

e) sin_half     a constant with value set to sin(0.5) = 0.47942554

    REAL, PARAMETER :: sin_half = 0.47942554
or, in Fortran 2003:
    REAL, PARAMETER :: sin_half = sin(0.5)