program pptest11;

  label 1, 2;

  var
    b: boolean;
    i: integer;

  begin
  { if ... then ... else }
    if b
    then i := 0
    else
      if (i = 0) or (i = 1) then i := 2 else i := 3;

    { goto statements }
    1: i := 0;
    goto 2;
    i := 1;
    2: goto 1;

    { case statements }
    case i of
     -2 : i := 0;
      0 : ;
      5 : i := 1
    end;

    { repeat statements }
    repeat i := i + 1 until i = 0;
    repeat i := i + 1 until false;

    { while statements }
    while true do i := i - 1;
    while i <> 0 do i := i - 1;

    { for statements }
    for i := 1 to 10 do ;
    for i := 1 to i do ;
    for i := 10 downto 1 do ;
    for i := 10 downto i do
  end { pptest11 }.