Gửi tus.
=================
program sontuong;
uses math;
var a,b,c,d,mi,ma:int64;
begin
readln(a,b,c,d);
if (a > d) then
write(b - c - a + d)
else if (c > b) then
write(d - a - c + b)
else if (a<d) or (c<b) then
begin
mi := min(min(a,b),min(c,d));
ma := max(max(a,b),max(c,d));
writeln(ma-mi);
end;
readln
end.