Помогите написать программу

[hitman_Stav26]

Сколько можно купить быков,коров и телят платя за быка 10р. за корову 5р. а за теленка 0,5р если на 100 рублей надо купить 100 голов скота ?

[Stilet]

Как это выражение выглядит на бумаге знаешь?

[Aleksandr H.]

Система уравнений? или можна перебором, на что ориентируемся: на количество или на стоимость?

uses crt;
const bull_price = 10;
      cow_price=5;
      calf_price = 0.5;
var
   bulls,cows,calfs: integer;
begin
clrscr;
for bulls := 0 to 10 do
begin
     for cows := 0 to 100 - (bulls) do
     begin
          for calfs := 0 to (100 - bulls-cows) do
          begin
               if (calfs+cows+bulls = 100) and (calfs*calf_price+cows*cow_price+bulls*bull_price=100.0) then
               begin
                write('Bulls: ',bulls,'(',bulls*bull_price,' hrn), Cows:',cows,'(',cows*cow_price,'hrn),');
                writeln(' Calfs:',calfs,'(',calfs*calf_price:3:2,' hrn).');
               end;
          end;
     end
end;
readln;
end.