pascalabcnet/CodeExamples/Patterns/patterns-switch.pas

begin
  var a: object := new List<integer>(arr(1, 2));
  match a with
    integer(var c): write(1);
    boolean(var s): write(2);
    List<integer>(var l) when l.Count > 0 : write(3)
  end;
end.