var
a, b: Boolean;
num1, num2: Integer;
begin
a := true;
b := true;
num1 := 0;
num2 := 0;
while a do
begin
Inc(num1);
if (num1 = 10) or b then //如果跳出了第二个循环,跳出本循环
a := false;
while b do
begin
Inc(num2);
if num2 = 10 then //跳出了第二个循环
b := false;
end;
end