Program z5_65; 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('bykov ',b,' korov ',k,' telyt ',t); readln; END.