program main
implicit none
real*8 length,width,area
length=0.8-8
width=0.04-8
area=length*width
print*,‘length=‘,length
print*，‘width=‘,width
print*，‘area=‘,area
end program