t_16_22_a_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:list;
     begin
        new(p);
        p^.elem:=E;
        P^.next:=L;
        L:=p;
     end;