Create Area del Cuadrado (Sub Programa)