program SkipList;

type
  Node = record
    value: Integer;
    next: array of Node;
  end;

var
  head: Node;

procedure AddElement(newValue: Integer);
var
  newNode: Node;
begin
  newNode.value := newValue;
  SetLength(newNode.next, Random(3) + 1); // Random number of levels for skip list
  // Connect newNode to the skip list
end;

procedure PrintSkipList;
begin
  // Print the skip list structure
end;

begin
  // Initialize skip list
  // Add elements to skip list
  // Print skip list
end.