INTEGER a(2,3), b(3,2), gob(2,2),
Read(*,*) ((a(i,j),j=1,3),i=1,2)
write(*,*)
Read(*,*) ((b(i,j),j=1,2),i=1,3)

do 20 i=1,2
    do 20 j=1,2
    hab=0
    do 10 k=1,3
10      hab=hab+1(i,k)*b(k,j)
        gob(i,j)=hab
20  continue
write(*,30) ((gob(i,j), j=1,2, i=30 format(3(1x,2i5,/))

stop
end