t_16_22_b_v1_volkovich

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