codice:
 program es1
integer, dimension(100,100)::A

integer::n
integer::i,j
integer::colonna1, colonna

Write(*,*)"Inserisci l'ordine della matrice quadrata, n"
Read(*,*) n
Write(*,*)"Inserisci la matrice"
do i=1,n
Read(*,*)(a(i,j),j=1,n)
end do
do i=1,n
write(*,*)(a(i,j),j=1,n)
end do

colonna1=colonna(n,a)
write(*,*) colonna1


stop
end program