Program Disposer (Input,Output);

Const
   Size = 1000;
   NumNodes = 1000;
 
Type
   link = ^node;
   node = array[1..Size] of integer;

Var
   p : link;
   n : 1..NumNodes;

begin
   for n := 1 to NumNodes do
    begin
      new(p);
      dispose(p);
    end;
end.