Program stergere_elem; d5b10bi
Type ref = ^inr; inr = record; elem : real; adrurm : ref; end;
VAR b, c, d, prim, ultim : ref; elem1 : real; begin

*AStergerea primului elementS c := prim; prim := c^.adrurm; dispose(c);

*ASteregerea ultimului elementS c := prim;
while c^.adrurm <> nil do begin d := c; c := c^.adrurm; end; d^.adrurm := nil; dispose(c); ultim := d;

*AStergere in interiorS

write(‘Introduceti elem ce trebuie sters: ’); readln(elem1); c := prim;
while c^.elem<>elem1 do begin d := c; c := c^.adrurm; end; d^.adrurm := c^.adrurm; dispose(c); end.