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

[arhimag]

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

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

[volvo]

Вложенный цикл устроит?

const
  m = 4;
  n = 6;
  arr: array[1 .. m+n] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

var
  i, j, T: integer;

begin
  for i := 1 to m + n do
    write(arr[i]:4);
  writeln;

  for i := 1 to m do begin
    T := arr[1];
    for j := 2 to m+n do
      arr[j - 1] := arr[j];
    arr[m+n] := T;
  end;

  for i := 1 to m + n do
    write(arr[i]:4);
  writeln;
end.