program inundatii;
var a,b,a1,b1:array[1..3]of longint;
		n,i,s:longint;
		ok:boolean;
begin
	assign(input,'inundatii.in'); reset(input);
	assign(output,'inundatii.out'); rewrite(output);
	readln(input,n);
	for i:=1 to 3 do read(input,a[i]);
	readln(input);
	for i:=1 to 3 do read(input,b[i]);
	a1:=a;
	b1:=b;
	ok:=true;
	repeat
		begin
			for i:=1 to 3 do
				if a1[i]>b1[i] then a1[i]:=a1[i]-1;
			for i:=1 to 3 do
				if b1[i]<=a1[i] then b1[i]:=b1[i]+1;
			i:=1;
			while i<=3 do
				begin
					if a1[i]>b1[i] then begin
																ok:=false;
																i:=3;
															end
					else ok:=true;
					i:=i+1;
			 end;
		end;
	until ok;
	s:=0;
	for i:=1 to 3 do s:=s+abs(a[i]-a1[i]);
	for i:=1 to 3 do s:=s+abs(b[i]-b1[i]);
	write(output,s);
end.