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