10 lines
161 B
ObjectPascal
10 lines
161 B
ObjectPascal
|
function Gen: integer? := Random(2)=0 ? 777 : nil;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var i: integer?;
|
||
|
|
i := Gen();
|
||
|
|
if i.HasValue then
|
||
|
|
Print(i.Value)
|
||
|
|
else Print('No value')
|
||
|
|
end.
|