type
  PStack = ^Stack;
  Stack = record
    data: integer;
    next: PStack;
  end;
  PQueue = ^Queue;
  Queue = record
    data: integer;
    next: PQueue;
  end;
  TQueue = record
    head: PQueue;
    tail: PQueue;
  end;
 
begin
end.