program summ
implicit none
    integer :: sum = 0
    integer :: n
    !$OMP parallel do
    do n = 0, 1000
        sum = sum + n
        print*, n, " ", sum
    end do
    !$OMP end parallel do
    print*, " "
    print*, " "
    print*, " "
    print*, "hasilnya adalah ", sum
end program summ