[tips] C like case-sentence

CLikeSwitchCase.pas

program CLikeSwitchCase;

function SwitchCase(const A: Integer): Integer;
label
  Case0, Case1, CaseElse;
begin
  Result := 0;

  case A of
    0: goto Case0;
    1: goto Case1;
    else goto CaseElse;
  end;

  Case0:
    Inc(Result);
  Case1:
    Inc(Result);
  CaseElse:
    Inc(Result);
end;

begin
  Writeln(SwitchCase(0)); // 3
  Writeln(SwitchCase(1)); // 2
  Writeln(SwitchCase(2)); // 1
  Readln;
end.