百鸡百钱 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.

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