PROCEDURE IzbaciSveNaParnimPozicijama(VAR lista : brojevi);
VAR
  brojac : INTEGER;
  prethodni, tekuci : brojevi;
BEGIN
  WriteLn;
  WriteString('Ispis liste bez elemenata na parnim pozicijama:');
  WriteLn;
  brojac := 1;
  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 IzbaciSveNaParnimPozicijama;