RosettaCodeData/Task/Null-object/PascalABC.NET/null-object.pas
2024-07-13 15:19:22 -07:00

6 lines
94 B
ObjectPascal

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