program-id. abc169c.

data division.
  working-storage section.
  77 ab   pic x(21).
  77 a    pic 9(16).
  77 b    pic 9v99.
  77 ans  pic z(16)9.

procedure division.
  accept ab.
  unstring ab delimited by space into a b.
  compute ans = a * (b * 100) / 100.
  display ans.
  stop run.
