program prog4 implicit none real a, b integer i, j read *, i a = 3.1415 b = -.0005 j = i print *, a, b, j end