Giải bài Điền số

to vuong :i

            pd

            repeat 4 [fd 40 rt 90]

            pu fd 30 rt 90 fd 10 pd

            label :i

            pu bk 10 lt 90 bk 30 pd

end

to dienso

            cs       

            pu fd 80

            vuong 1

            pu setxy 40 40

            vuong 12 fd 40

            vuong 2 fd 40

            vuong 3

            pu setxy 80 0

            vuong 11 fd 40

            vuong 10 fd 80

            vuong 5 fd 40

            vuong 4

            pu setxy 120 40

            vuong 9 fd 40

            vuong 7 fd 40

            vuong 6 fd 40

            pu setxy 160 80

            vuong 8

            pu setxy 90 90 pd

            setfc 0

            fill

end