>>265
よく分かんないんですけど、
for Int := 1 to Int * 2 + 1　ですか？