Составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка 10 руб., за корову — 5 руб., а за теленка — 0,5 руб., если на 100 руб. надо купить 100 голов скота? — Pascal(Паскаль)

var
  k, b, t: integer;

begin
  for b := 1 to 10 do
    for k := 1 to 20 do
      for t := 1 to 200 do
        if (b * 10 + k * 5 + t * 0.5 = 100) and (b + k + t = 100) then
          writeln('bykov=', b, ' korov=', k, ' telyat=', t);
  readln;

end.