sumOfCows

{Gọi  x là số bò đứng.
    y là số bò nằm.
    z là số bò già
=> Tổng số bò là : x + y + z = 100.

số cỏ   x ăn : 5x
    y ăn : 3y
    z ăn : z/3
=> Tổng số cỏ là : 5x + 3y + z/3 = 100.

Giải hệ 2 phương trình 3 ẩn hoặc dùng thuật toán sau :
}

var x, y, z:integer;
BEGIN
        for x:=1 to 100 do
                for y:=1 to 100-x do
                        for z:=1 to 100-x-y do begin
                                if(x + y + z = 100) and (5*x + 3*y + z/3 = 100) then begin
                                        write(x);
                                        write(' ',y );
                                        write(' ',z );
                                        writeln;
                                end;
                        end;

END.

{
Kết quả :
4 18 78
8 11 81
12 4 84
}