[b]Escribir en Entrada[/b]:[br]A=(0,0,0)[br]B=(0,0,h)[br]f=Segmento(A,B) Ocultar el vector u[br]g=Elemento(l2,1)[br]C=PuntoMedio(g)[br]i=Segmento(A,C)[br]l1'=Traslada(l1,u) [br]l3=Secuencia(Polígono(Elemento(l1, k), Elemento(l1, k + 1), Elemento(l1', k + 1), Elemento(l1', k)), k, 1, n)[br][b]Agregar el texto[/b]:[br]Lado=g[br]Apotema=i[br]Altura=h[br]Numero de lados= n[br]g, i, h, n se toman de la lista de Objetos[br]En Entrada escribir: a=Prisma(pol1,h)