program macierz
implicit none

real, allocatable,dimension(:,:) :: a
integer :: i, j, n, m
real :: z

write(*,*) 'Jakiego rozmiaru będzie macierz a(i,j)?'
read(*,*) n, m

allocate(a(n,m))

do i = 1, n
	do j = 1, m
		write(*,*) 'Podaj element', i, j, 'macierzy'
		read(*,*) a(i,j)
	end do
end do

write(*,*) 'Wpisana macierz ma postac:'
do i = 1, n
	write(*,*) (a(i, j), j=1, m)
end do

end