怎么用 Pascal 的 while 语句列出 Fibonacci 数列的前30项?