编辑代码

program area
   implicit none
   real::a=112,b240,h150,s
   read(F5.3)a,b,h
   s=((a+b)/2)*h/10000
   print(F5.1),s
end prorgam area