Задачи по теме МАССИВЫ., Помогите решить задачи пожалуйста. Опции

[arhimag]

Помогите пожалуйста! Решить задачи по теме массивы а то чего-то решить не могу!

Даны N отрезков на прямой. Найти длину общей части всех этих отрезков.
Входныйе данные: сначало 1<n<100, а затем n пар чисел, где 1число - левая ( целая координата), а второе - правая( тоже целая).

[virt]

в длинную арифметику влезет.

если A[i] <= _osn ,то ::

var b : TLong;

....
   b[0] := 1;
   b[1] := a[1];
   for i := 2 to n + 1 do
   begin
      MulLongShort(b,x,b);
      AddDigit(a[i]);
   end;

если A[i] - длинные ,то::

var b : TLong;

....
   b := a[1];
   for i := 2 to n + 1 do
   begin
      MulLongShort(b,x,b);
      MulLongTwo(b,a[i],b);
   end;

AddDigit взята из модуля volvo ,чуть чуть её переделаешь.
длинная арифметика