program n11
integer::i,j,b=1,y=0
integer,parameter::m=3,n=8
real::A(1:m,1:n)
open(101,file='mat.txt',status='old')
do i=1,m
    read(101,*) A(i,:)
    call factorial(A,i,b,y)
    do j=1,n
        write(*,'(f7.2\)') A(i,j)
    end do
    print*, ' '
end do
close(101)
write(*,'(/"Answer ::",i)') b
contains

    subroutine factorial(A,i,b,y)
    integer::i,j,y,b
    real,dimension(:,:)::A
    do j=2,n,2
        if (A(i,j).EQ.0) then
            y=y+1
            b=b*y
        end if
    end do
    end subroutine

end