Create Area del cuadrado (subprograma)