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

7 lines
94 B
ObjectPascal
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
begin
var a := new integer[](1,2,3);
if Random(2) = 0 then
a := nil;
Print(a);
end.