var a,b,c:integer;beginwriteln('cock':6,'hen':6,'chick':6);for a:=0 to 20 do
for b:=0 to 100-5*a do
begin
c:=100-a-b;
if (c mod 3=0)and(5*a+3*b+c div 3=100) then
writeln(a:5,b:6,c:6);
end;end....
var i,x,y,z:longint;beginfor x:=0 to 20 dofor y:=0 to 33 dofor z:=0 to 100 doif (x+y+z=100) and (x*5+y*3+z*1/3=100) then writeln(x,' ',y,' ',z,' '); end....