skrati za e

PROCEDURE skracujeZaE(VAR lista : brojevi; br : INTEGER);
VAR
	temp, tekuci : brojevi;
	lsize, izbrisati, brojac : INTEGER;
BEGIN
	temp := lista;
	lsize := size(lista);
	izbrisati := lsize - br;
	brojac :=0;
	WHILE brojac < izbrisati DO
		tekuci := temp^.veza;
		DISPOSE(temp);
		temp := tekuci;
		INC(brojac);
	END;
	lista := temp;
END skracujeZaE;