Программа на языке Pascal:

program BuyAnimals;
var
bulls, cows, calves: integer;
totalMoney, totalAnimals: integer;
begin
totalMoney := 100;
totalAnimals := 100;
for bulls := 0 to totalAnimals div 10 do
begin
for cows := 0 to totalAnimals div 5 do
begin
calves := totalAnimals - bulls - cows;
if $10\ast bulls+5\ast cows+0.5\ast calves=totalMoney$ then
begin
writeln${}^{\prime }Bulls{:}^{\prime },bulls$;
writeln${}^{\prime }Cows{:}^{\prime },cows$;
writeln${}^{\prime }Calves{:}^{\prime },calves$;
break;
end;
end;
end;
end.

После выполнения программы мы получим, что можно купить 5 быков, 5 коров и 90 телят на 100 рублей.