PROCEDURE IzbaciSveNaNeparnimPozicijama(VAR lista : brojevi);
VAR
  brojac : INTEGER;
  prethodni, tekuci : brojevi;
BEGIN
  WriteLn;
  WriteString('Ispis liste bez elemenata na neparnim pozicijama:');
  WriteLn;
  IF (lista # NIL) THEN
    tekuci := lista;
    lista := lista^.veza;
    DISPOSE(tekuci);
  END;
  brojac := 2;
  tekuci := lista;
  prethodni := NIL;
  WHILE (tekuci # NIL) DO
    IF (brojac MOD 2 # 0) THEN
      prethodni^.veza := tekuci^.veza;
      DISPOSE(tekuci);
      tekuci := prethodni^.veza;
    ELSE
      prethodni := tekuci;
      tekuci := tekuci^.veza;
    END;
    INC(brojac);
  END;
END IzbaciSveNaNeparnimPozicijama;