RosettaCodeData/Task/A+B/Fortran/a+b-2.f
2023-07-01 13:44:08 -04:00

5 lines
96 B
Fortran

READ (1,100) I,J
100 FORMAT(2I5)
WRITE (2,200) I+J
200 FORMAT(1X,I5)
END