program ex0401
implicit none
real :: Height, Weight
real :: Standard_Weight
write(*,*) 'Please input your height :'
read(*,*) Weight
standard_Weight = Height  - 100.0
if (Weight .GT. Stand_Weight) then
  write(*,*) 'You are overweighted !'
else
  write(*,*) 'Your weight is under control !'
end if
stop
end program ex0401