type Node = class public data: T; next: Node; constructor (d: T; n: Node); begin data := d; next := n; end; end; begin var n1 := new Node(5,nil); var n2 := new Node(6,n1); writeln(n2); n1.next := n2; writeln(n2); end.