用PASCAL解决“百钱百鸡”问题

program Project1;
var x,y,z:integer;
begin
for x:=0 to 20 do
for y:=0 to 100-x do
begin
z:=100-x-y;
if (x*5+y*3+z div 3=100)and(z mod 3=0) then
writeln(x:5,y:5,z:5);
end;
readln;
end

var
i,j,k:integer;
begin
for i:=0 to 20 do{公鸡最多20只}
for j:=0 to (100-5*x)div 3{母机最多个数,从钱算,较之于从数量算可以少枚举}
begin
k:=100-i-j;{总数为100}
if 5*i+j*3+k/3=100
then wrietln(i:4,j:4,k:4);
end;
end.

program bqbj;
var a,b,c:integer;
begin
for a:=1 to 20 do
for b:=1 to 33 do
begin
c:=100-a-b;
if (a*5+b*3+c/3)=100 and (a+b+c=100)
then writeln(a,' ',b,' ',c)
end;
end.

var a,b,c:integer;
begin
for a:=0 to 20 do
for b:=0 to 34 do
begin
c:=100-a-b;
i