[s0Creator]

Забыл

Код:

  readln;
  // очистить память
  while Beg <> nil do
    Dispose(RopFirst(Beg));
end.