ブログから転載。ようやく条件分岐やループの描き方に慣れてきた感じ。ついでに関数（procedure）も使ってみた。このくらいの規模になってくるといい感じに頭の体操になるんじゃないかな、と。そういえば描いてて思ったのだけど、for文の代わりってないの？