program area
implicit none
real::a,b,h,result
print*,'Input the value of a '
read*,a 
print*,'Input the value of b '
read*,b
print*,'Input the value of h '
read*,h
result = 0.5*(a+b)*h
print*,'The Area is',result,'cm**2'
end program main