fork download
  1. PROGRAM ex1_3
  2. REAL :: w, h, bmi
  3. READ * ,w, h
  4. bmi= w/ h**2
  5. PRINT * ,bmi
  6. END PROGRAM ex1_3
Success #stdin #stdout 0s 5280KB
stdin
50 1.6
stdout
   19.5312481