program hello
implicit none
integer, parameter :: n = 10
integer :: i, j, k, m, list(3, n*(n-1)*(n-2)/6)
m = 0
do i = 1, n
do j = i + 1, n
do k = j + 1, n
m = m + 1
list(1, m) = i
list(2, m) = j
list(3, m) = k
end do
end do
end do
print '(3i3)', list
print *, 'total number = ', m
end program Hello
cHJvZ3JhbSBoZWxsbwogIGltcGxpY2l0IG5vbmUKICBpbnRlZ2VyLCBwYXJhbWV0ZXIgOjogbiA9IDEwCiAgaW50ZWdlciA6OiBpLCBqLCBrLCBtLCBsaXN0KDMsIG4qKG4tMSkqKG4tMikvNikKICBtID0gMAogIGRvIGkgPSAxLCBuCiAgICBkbyBqID0gaSArIDEsIG4KICAgICAgZG8gayA9IGogKyAxLCBuCiAgICAgICAgbSA9IG0gKyAxCiAgICAgICAgbGlzdCgxLCBtKSA9IGkKICAgICAgICBsaXN0KDIsIG0pID0gagogICAgICAgIGxpc3QoMywgbSkgPSBrIAogICAgICBlbmQgZG8KICAgIGVuZCBkbwogIGVuZCBkbyAgICAKICBwcmludCAnKDNpMyknLCBsaXN0CiAgcHJpbnQgKiwgJ3RvdGFsIG51bWJlciA9ICcsIG0KZW5kIHByb2dyYW0gSGVsbG8K