var
  i,         //номер члена послежовательности
  n: integer;//длина последовательности
  a: double; //заданное число
Begin
  write('Введите длину последовательности: ');
  read(n);
  write('Введите a: ');
  read(a);
//Вывод последовательности
  i:=2; 
  write('Последовательность: ',1);
  while i <= n do begin
    write('  ',1+1/i:0:4);//4 - количество цифр после запятой, если нужна большая точность можно увеличить
    i:=i+1;
  end;
  writeln();
//Вывод требуемых чисел
  write('Числа меньше а: ');
  i:=2;
  if a > 1 then write(1);
  while i <= n do begin
    if a > 1+1/i then write('  ',1+1/i:0:4);
    i:=i+1;
  end;
End.