Урок 13.1 Задача 5

Урок 13.1 Задача 5

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

program  u131z5;
var i,a,n: integer;

begin

 writeln('vvedite chislo ogranichitela');
 readln(a);

 i:=1;
 while (i < a) do

   begin

   writeln('vvedite chislo i');
   readln(i);

     for n:= 1 to i do
       write(n,' ');

   end;

end.