Delphi设计程序,求S=1 (1 2)