program lab2
         integer table(0:40,0:40)
         integer n

         print *,'Enter array size: '
         read *, n

        do i=0,n-1
          do j=0,n-1
            table(i,j) =  (n-i+j +1- abs(n- i - j-1))/2;
                write(*,"(i3,$)")table(i,j)
          enddo
              write(*,*)
        enddo
      end program lab2