program main
implicit none

integer counter
integer :: lines=5,num=0,sum=0

do counter=1,lines
num=num+2
sum=sum+num
end do

write(*,*) sum

end