怎么用freepascal编辑一个算计号