PROGRAM Pitagora
	
	IMPLICIT NONE
	INTEGER, DIMENSION(10,10) :: a,b,p
	INTEGER, DIMENSION(10) :: v
	INTEGER :: i
	
	v=(/(i,i=1,10)/)
	WRITE(*,*) "V = "
	WRITE(*,100) v

	a = SPREAD(v,DIM=1,NCOPIES=10)
	b = SPREAD(v,DIM=2,NCOPIES=10)
	
	WRITE(*,*) "A = "
	DO i=1,10
		WRITE(*,100) a(i,:)
	END DO	
	WRITE(*,*) "B = "
	DO i=1,10
		WRITE(*,100) b(i,:)
	END DO	
	
	p=a*b
	
	WRITE(*,*) "P = "
	DO i=1,10
		WRITE(*,100) p(i,:)
	END DO	

100     FORMAT(10(1x,i3))
END PROGRAM Pitagora