program prac1_2
	implicit none
	integer k, n, sum1, sum2
	n = 50
	sum1 = 0
	sum2 = 0
	do k = 1, n
		sum1 = sum1 + k
	enddo
	sum2 = 0.5 * n * (n+1)
	write(*,*) 'sum1 = ', sum1, 'sum2 = ', sum2
end program prac1_2