Помогите кто-нибудь написать программу на pascal к задаче!!! Нужно использовать while. Я в девятом классе.

Про длину последовательности в задаче ничего не сказано.

Если последовательность не ограничить, то программа будет бесконечно печатать числа.

Программа без ограничения последовательности:var i, //номер члена последовательности a: double; //заданное числоBegin write('Введите a: '); read(a);write('Числа меньше а: '); i:=2; if a > 1 then write(1); while true do begin if a > 1+1/i then write(' ',1+1/i:0:8); i:=i+1; end;End.

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 1+1/i < a then write('   ',1+1/i:0:4);   //если i-й член последовательности < a,                                                                                              то печатаем это число       i:=i+1;                 //переходим к следующему числу в последовательности   end;End.