program prog2 implicit none real a, b integer i read *, a, b, i print *, a, b, i end