t_16_23_a_v1_volkovich

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