pascal while 做百鸡百钱

program money_and_chicken;
var
i,j,k:longint;
begin
i:=1;
j:=1;
k:=1;
while i<20 do begin
i:=i+1;j:=1;k:=1;
while j<=33 do begin
j:=j+1;k:=1;
while k<300 do begin
if (i+j+k=100)and(5*i+j*3+k/3=100) then writeln(i,' ',j,' ',k,' ');
k:=k+1;
end;
end;
end;
end.

var a,b:integer;
begin
a:=0;
b:=0;
while a<=20 do
begin
a:=a+1;
b:=0;
while b<=33 do
begin
b:=b+1;
if 3*(100-5*a-b*3)+a+b=100 then writeln(a:4,b:4,100-a-b:4);
end;
end;
end.