Сколько можно купить быков, коров и телят, если плата за быка 10 рублей, за корову - 5 рублей, за теленка - полтинник (0,5 рубля)

var b, k, t: integer;
begin
for b:=0 to 10 do
  for k:=0 to 20 do 
    begin
      t:=100-(b+k);
      if(20*b+10*k+t=200) then
      writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
    end;
end.

Результат:
Быков 1 коров 9 телят 90