procedure Calc(Money: Integer; var Y1, Y1000, Y10000: Integer);
var
　A1, A1000, A10000: Integer;
　MinSum: Integer;
begin
　MinSum := MaxInt;
　for A10000 := 0 to Money div 10000 do
　begin
　　if A10000 * 10000 > Money then Exit;
　　for A1000 := 0 to 9 do
　　begin
　　　if A10000 * 10000 + A1000 * 1000 > Money then Exit;
　　　for A1 := 0 to 999 do
　　　begin
　　　　if A1 + A1000 * 1000 + A10000 * 10000 > Money then Exit;
　　　　if A1 + A1000 * 1000 + A10000 * 10000 = Money then
　　　　begin
　　　　　if A1 + A1000 + A10000 < MinSum then
　　　　　begin
　　　　　　MinSum := A1 + A1000 + A10000;
　　　　　　Y1 := A1;
　　　　　　Y1000 := A1000;
　　　　　　Y10000 := A10000;
　　　　　end;
　　　　end;
　　　end;
　　end;
　end;
end;