read(5, 100) n write(6,100) n 100 format(i5) stop end