Старинная задача. Сколько можно купить быков, коров и телят на 100 руб., если в сумме должно быть куплено 100 голов скота, а цена быка

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

Program Praktik5;
Uses crt;
Var a, b, c: integer;
Begin
    for a:= 1 to 10 do
      for b:=1 to 100 do
        for c:=1 to 100 do
          if (a+b+c = 100) and
            (10*a + 5*b + 0.5*c) =100 then
              writeln (a,’ быков ’, b,’ коров ’,c,’телят’);
Readkey;
end.