Create Area Triangulo subprograma