PROGRAM Lab_14
! This Lab solves ex. 1 page 153
IMPLICIT NONE
INTEGER :: I, J, Sum, Difference
PRINT *, "Enter I:"
READ '(I3)', I
PRINT *, "Enter J:"
READ '(I3)', J
Sum=I+J
Difference=I-J
PRINT *
PRINT '(1x, I5, I12)', I, I
PRINT '(1x, "+", I4, 7x, "-", I4)', J, J
PRINT '(1x, "-----", 7x, "-----")'
PRINT '(1x, I5, I12)', Sum, Difference
END PROGRAM Lab_14