type
  list=^node;
  node=record
        elem: integer;
        next: list;
       end;

procedure change2(var L: list);
var p: list; b,e: integer;
  begin
    if(L<>nil) then
      begin
        b:=L^.elem;
        p:=L;
        while(p^.next<>nil) do
          p:=p^.next;
        e:=p^.elem;
        p^.elem:=b;
        L^.elem:=e;
      end;
  end;