Logo - Zadatak Piramida (Zup 2013)

to piramida :n :a :b :d

rt 90
make "s :n*:a
make "omjer :b/:a

while [:a > 0] [

	pu bk :s/2 pd
	repeat :n [
		repeat 2 [fd :a lt 90 fd :b lt 90]
		pu fd :a pd
	]
	pu bk :s/2 lt 90 fd :b rt 90 pd

	make "a :a - :d/:n
	make "b :a*:omjer
	make "s :n*:a
]

lt 90

end