百钱买百鸡问题

 公元钱五世纪，我国古代数学家张丘建在《算经》一书中提出了“百鸡问题”：鸡翁一值钱五，鸡母一值钱三，鸡雏三值钱一。百钱买百鸡，问鸡翁、鸡母、鸡雏各几何？

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,z : integer; //x 鸡翁个数；y鸡母个数；z鸡皱个数
begin
  x := 0;
  while x<=19 do
  begin
     y := 0;
     while y<=33 do
     begin
         z := 100-x-y;
         if (5*x+3*y+(z div 3)=100)and(z mod 3=0) then
         begin
           Label1.Caption := ''+inttostr(x);
           Label2.Caption := ''+inttostr(y);
           Label3.Caption := ''+inttostr(z);
         end;
         inc(y);
     end;    // while
     inc(x);
  end;    // while

end;