PROCEDURE IzbaciNeparnePozicije(VAR lista : brojevi);
VAR
  temp, prethodni:brojevi;
  brojac:INTEGER;
BEGIN
  IF lista = NIL THEN
    WriteString('lista je prazna');
  ELSIF
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
  END;
  temp:=lista;
  prethodni:=NIL;
  brojac:=1;
  WHILE temp # NIL DO
    INC(brojac);
    IF (brojac MOD 2 # 0) THEN
      prethodni^.veza:=temp^.veza;
      DISPOSE(temp);
      temp:=prethodni^.veza;
    ELSE
      prethodni:=temp;
      temp:=temp^.veza;
    END;
  END;
END IzbaciNeparnePozicije;