Create area de un cuadrado en subprograma