Program Lab2_1;
   var C:array[1..30] of integer;
   var i,j,n,k:integer;
       A,B,S:real;

begin
  write('vvedite chislo elementov posledovatelnosti');
  read(n);
  for i:=1 to n-1 do begin
      write('vvedite element massiva C[',i,']=');
      read(C[i]);
      end;
  C[n]:=0;
  writeln('                        ','C[',n,']=0');
  writeln('vvedite granitci intervala:');
  write('A=');  read(A);
  write('B=');  read(B);
  for i:=1 to n-1 do begin
      if ((c[i]+c[i+1])>=A) and ((c[i]+c[i+1])<=B) then
	  begin
	  for i:=1 to n-1 do
	  for j:=i+1 to n do
	  if c[i]>c[j] then begin
	     k:=c[i];
	     c[i]:=c[j];
	     c[j]:=k;
	     end;
	  end;
      end;
      for i:=1 to n do
      writeln(c[i]);
end.