t_16_30_z_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать рекурсивную процедуру, которая удаляет из списка L 1е вхождение элемента Е, если он в нем есть}
procedure delete(L:list; E:T);
       var p:list;
       begin
           if (l^.next=nil) and (l^.elem=E) then dispose(l);
           if (l^.net<>nil) and (l^.elem=E) then begin p:=L; l:=p^.next; dispose(p); end
           else if l^next<>nil then delete(L^.next; E);
       end;