Составить алгоритм решения задачи: сколько можно купить быков, коров и телят, платя за быка — 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.