function BER=konacno7_4(N,p)
% N - mora da bude deljivo sa 4 !!!
y=0; xr=0;

x=randi([0,1],1,N);

for i=1:N/4
    I=x(4*i-3:4*i);
    C=koder7_4(I);
    y(7*i-6:7*i)=C;
end

e=verovatnocagreske(N/4*7,p);
yr=rem(y+e,2);

for i=1:N/4
    R=yr(7*i-6:7*i);
    Ir=dekoder7_4(R);
    xr(4*i-3:4*i)=Ir;
end
BER=sum(rem(x+xr,2))/N;