free pascal 求1 2 3 n