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