multiplo::Int->Int->(Int, String, Int)
multiplo a b	|mod a b == 0 = (a, "Es multiplo de", b)
		|otherwise = (a, "No es multiplo de", b)