program ch0502
  implicit none
  real :: a, b, c
  integer :: i

  a = 1.5
  b = 2.0
  c = a/b
  i = a/b
  print *, a, b
  print *, c
  print *, i
end program