PROCEDURE IzbaciNeparne(VAR lista : brojevi);
VAR
  temp, prethodni : brojevi;
BEGIN
  WriteString('Ispis liste bez neparnih elemenata.');
  WHILE (lista # NIL) AND (lista^.info MOD 2 # 0) DO
    temp := lista;
    lista := lista^.veza;
    DISPOSE(temp);
  END;
  temp := lista;
  prethodni := NIL;
  WHILE (temp # NIL) DO
    IF (temp^.info MOD 2 # 0) THEN
      prethodni^.veza := temp^.veza;
      DISPOSE(temp);
      temp := prethodni^.veza;
    ELSE
    prethodni := temp;
    temp := temp^.veza;
    END;
  END;
END IzbaciNeparne;