(ne)parni

//BRIŠE POZICIJE
PROCEDURE IzbaciParnePozicije(VAR lista:brojevi);
VAR temp,prethodni:brojevi;
    i:INTEGER;
BEGIN
  IF lista=NIL THEN
    WriteString('Greska');WriteLn;
  ELSE
    temp:=lista;
    i:=2;
    WHILE temp^.veza#NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      IF (i MOD 2 = 0) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
      INC(i);
    END;
  END;
END IzbaciParnePozicije;

PROCEDURE IzbaciNeparnePozicije(VAR lista:brojevi);
VAR temp,prethodni:brojevi;
    i:INTEGER;
BEGIN
  IF lista=NIL THEN
    WriteString('Greska');WriteLn;
  ELSE
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
    temp:=lista;
    i:=3;
    WHILE temp^.veza#NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      IF ODD(i) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
      INC(i);
    END;
  END;
END IzbaciNeparnePozicije;

// BRIŠE (NE)PARNE BROJEVE
PROCEDURE BriseParne(VAR lista:brojevi);
VAR prethodni,temp:brojevi;
BEGIN
  WHILE (lista#NIL) AND (NOT ODD(lista^.info)) DO
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
  END;
  IF lista#NIL THEN
    temp:=lista;
    WHILE temp^.veza#NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      IF (temp^.info MOD 2 = 0) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
    END;
  END;
END BriseParne;

PROCEDURE BrisiNeparne(VAR lista:brojevi);
VAR temp,prethodni:brojevi;
BEGIN
  WHILE (lista#NIL) AND (lista^.info MOD 2 # 0) DO
    temp:=lista;
    lista:=lista^.veza;
    DISPOSE(temp);
  END;
  IF lista#NIL THEN
    temp:=lista;
    WHILE temp^.veza#NIL DO
      prethodni:=temp;
      temp:=temp^.veza;
      IF (temp^.info MOD 2 # 0) THEN
        prethodni^.veza:=temp^.veza;
    DISPOSE(temp);
    temp:=prethodni;
      END;
    END;
  END;
END BrisiNeparne;