怎么用pascal语言做百鸡问题？

var
a,b,c:integer;
begin
for a:=1 to 100 do
for b:=1 to 100 do
for c:=1 to 100 do
if (a+b+c=100)and(a*3+b*2+c/3=100) then writeln(a,' ',b,' ',c);
end.
这里的鸡的钱数分别为3钱，2钱和1/3钱
这个题就是最简单的枚举，把每种情况都试验一遍，看看哪个好使

什么来的？