Delphi 发工资问题（贪心算法）

Program SalaryPaymentScheme;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows {GetTickCount()函数会用到这个API函数};

Var
    salary: Int64;
    hundreds, fifties, twenties, tens, fives, ones: Integer;
    time1, time2: Cardinal; //序数型，无符号32位，范围（42亿），常用的Integer 是有符号32位正负21亿。 还有一个Int64是有符号64位，是最大范围的，



Begin
    time1 := GetTickCount();
    //GetTickcount函数:它返回从操作系统启动到当前所经过的毫秒数，常常用来判断某个方法执行的时间，其函数原型是DWORD GetTickCount(void)，返回值
    //以32位的双字类型DWORD存储，因此可以存储的最大值是(2^32-1) ms约为49.71天，因此若系统运行时间超过49.71天时，这个数就会归0，MSDN中也明确的
    //提到了:"Retrieves the number of milliseconds that have elapsed since the system was started, up to 49.7 days."。因此，如果是编写服务器
    //端程序，此处一定要万分注意，避免引起意外的状况(如需避免此种情况可使用Ctime类或者是系统API的SYSTEMTIME进行判断)。
    //另外这行注释，从百度复制过来显示乱码，我粘贴到记事本中用UTF-8，再复制过来就可以了。
    ReadLn(salary);
  // 初始化各面额钞票数量
    hundreds := 0;
    fifties := 0;
    twenties := 0;
    tens := 0;
    fives := 0;
    ones := 0;
  // 计算各面额钞票数量
    hundreds := salary Div 100;

    salary := salary Mod 100;
    fifties := salary Div 50;

    salary := salary Mod 50;
    twenties := salary Div 20;

    salary := salary Mod 20;
    tens := salary Div 10;

    salary := salary Mod 10;
    fives := salary Div 5;

    ones := salary Mod 5;
  // 输出付款方案
    WriteLn('付款方案如下：');
    WriteLn('100元: ', hundreds);
    WriteLn('50元: ', fifties);
    WriteLn('20元: ', twenties);
    WriteLn('10元: ', tens);
    WriteLn('5元: ', fives);
    WriteLn('1元: ', ones);
    time1 := GetTickCount();
    Writeln('Used Time:',time:10:5);
  // 等待用户输入以关闭程序
    WriteLn('按任意键退出...');
    ReadLn;
End.
//要解决这个问题，我们需要使用贪心算法，也就是从最大的面额开始，尽可能多地使用大面额的钞票，
//然后逐步减小面额，直到工资总额被完全支付。