q2-s10.f90

program Q2
integer I, N, Sum
data I, N, Sum, Result / 0, 0, 0, 0 /
print *, 'Enter a positive integer'
read *, N
print *, ' i Sum'
print *, '----------------'
do 100 , I = 1, N, 1
Sum = Sum + I + ( N - I + 1)
print *, I, Sum
100 continue
Result = Sum /2
print *, ' '
print *, 'The result: ', Result
stop
end