Var
i, //номер члена последовательности
n: integer; //длина последовательности
a: double; //заданное число
Begin
//--------------------------------------Ввод данных----------------------------------------------------
write('Введите длину последовательности: ');
read(n);
write('Введите a: ');
read(a);
//-----------------------------Вывод последовательности-------------------------------------------
i:=2;
write('Последовательность: ',1);
while i <= n do begin <br> 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 <br> if 1+1/i < a then write(' ',1+1/i:0:4); //если i-й член последовательности < a,
то печатаем это число
i:=i+1; //переходим к следующему числу в последовательности
end;
End.