program ZZ

 integer, allocatable, dimension(:,:)::A, B

 integer::m, n, k, x, y
 print*,'Enter M'
 read*,m
 print*,'Enter N'
 read*,n
 print*,'Enter K'
 read*,k
 allocate(a(m,n),b(m,n+1))
 do y=1,n+1
     read*,(a(x,y),x=1,m)
 end do
 do y=1,n
     b(k+1,y)=0
 end do
 if(1<=k.and.k<=m)then
     do x=1,m
         do i=1,k
             b(x,i)=a(x,i)
         end do
     end do
     do
         x=k+2,n+1
         b(x,i)=a(x,i-1)
        end do
 else
     do y=1,n
         print*,a(x,y)
     end do
 end if
 do
     i=1,n+1
     print*,b(x,i)
 end do
 end program

read*,m
print*,'Enter N'
read*,n
print*,'Enter K'
read*,k
if(1<=k.and.k<=m)then
  allocate(a(m,n),b(m+1,n))
  do y=1,n+1
     read*,(a(x,y),x=1,m)
  end do
  do y=1,n
      b(k,y)=0
  end do
  do x=1,k-1
     do y=1,n
       b(x,y)=a(x,y)
     end do
  end do
  do x=k,m
    do y=1,n
      b(x+1,y)=a(x,y)
    end do
  end do
end if

rem Дальше идет вывод на печать