t_16_23_b_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать процедуру, которая удаляет второй элемент списка L}
type T=...;
     list=^chain;
     chain=record elem:T; next:list end;
procedure delete2(var L:list);
     var s:list;
     begin
       if L<>nil then do
       if L^.next<>nil then do
        begin
               s:=L^.next;
               L^.next:=L^.next^.next;
               dispose(s);
        end;
     end;