13 lines
141 B
ObjectPascal
13 lines
141 B
ObjectPascal
|
type
|
||
|
|
PNode = ^TNode;
|
||
|
|
TNode = record
|
||
|
|
Next: PNode;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
var t:tnode;
|
||
|
|
var p:=@t;
|
||
|
|
writeln(p);
|
||
|
|
new(p);
|
||
|
|
writeln(p);
|
||
|
|
end.
|