请问怎么用DELPHI实现这道数学题？

Question

一只鸭5元，一只鸡十元，一只鹅15元，小明带100元出去买鸡鸭鹅，请问他能买鸡鸭鹅共多少只，才能刚好把钱用完。把所有可能的结果写出来。请问这道题用delphi怎么做循环阿~~~~~
我之前用C做出来的!!现在不知道DELPHI里怎么完成~~~~~~~求救~~！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
const
  N = 100;
var
  A, B, C: Integer;
begin
  for A := 0 to N div 5 do
  for B := 0 to N div 10 do
  for C := 0 to N div 15 do
    if A * 5 + B * 10 + C * 15 = N then
      Memo1.Lines.Add(Format('A = %d, B = %d, C = %d', [A, B, C]));
end;

Answer 2

ji,Ya,e,X:integer;
st:TstringList;
begin
st:=TstringList.Create;
 for ji:=1 to 100 do 
 begin
  for Ya:=1 to 100 do 
  begin
   for e:=1 to 100 do 
   begin
    X:=100-Ji*5-Ya*10-e*15;
    if X=0 then 
    st.add(' 鸡='+inttostr(ji)+
           ' 鸭='+inttostr(Ya)+
           ' 鹅='+inttostr(e)+
           '100元刚好光完。');
   end;
  end;
 end;
result:=st;
end;//不知道对不对。在网吧里写的。

Answer 3

刚刚把分给了jadeluo(秀峰) 兄了！！！谢谢两位的帮忙！