{ 演示程序
  TINY 語言
  計算乘階
  Compiler Construction: Principles and Practice
  Kenneth C. Louden
  編譯原理及實踐
  (美) Kenneth C. Louden 著
  馮博琴 馮嵐 等譯
  機械工業(yè)出版社 IBSN 7-111-07703-2
  源代碼：李峰編輯并修訂
  Code Modify: Larry Li 2001.11
}
讀取 變量; { 讀取一個變量值 }
如果 變量 > 0 那么 { 只有變量為正數(shù)時才計算 }
  結果 := 1;
  循環(huán)
    結果 := 結果 * 變量;
    變量 := 變量 - 1
  直到 變量 = 0;
  輸出 結果 { 輸出輸入變量的乘階 }
結束