RosettaCodeData/Task/Null-object/PascalABC.NET/null-object.pas

begin
  var a := new integer[](1,2,3);
  if Random(2) = 0 then
    a := nil;
  Print(a);
end.