PROCEDURE IzbaciSveParne(VAR lista : brojevi);
VAR
  temp, prethodni : brojevi;

BEGIN
  IF (lista = NIL)  THEN
    WriteLn;
    WriteString('Lista je prazna.');
    WriteLn;
  ELSE
    WriteLn;
    WriteString('Ispis liste bez parnih elemenata.');
    WriteLn;
    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;
END IzbaciSveParne;