Программа

Program Pilshikov_5_46 (input,output);
{ Даны целое N>2 и вещественные
  a1, b1, a2, b2, ..., aN, bN (ai<bi).
  [ai,bi] - отрезки прямой.
  Определить концы отрезка,
  являющегося пересечением всех этих
  отрезков.   }
Var ai,bi:real;
    i,N:integer;
    a,b:real;
BEGIN
  Write('Введите число отрезков ');
  Readln(N);
  i:=1;
  Write('Введите a',i,' ');
  Readln(ai);
  Write('Введите b',i,' ');
  Readln(bi);
  a:=ai;
  b:=bi;
  for i:=2 to N do
    Begin
      Write('Введите a',i,' ');
      Readln(ai);
      Write('Введите b',i,' ');
      Readln(bi);
      if ai>a then a:=ai;
      if bi<b then b:=bi;
    End;
  if a<=b then Writeln('Отрезок [',a,',',b,']')
         else Writeln('Отрезка нет')
END.