program ex0505
implicit none
integer :: i, j
outer: do i = 1, 5
 inner: do j = 1, 5
  write(*, "(t2,A1,I3,A1,I3,A1)") '(,i, ',',l,')'
 end do inner
end do outer
stop
end program ex0505