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

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

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

var   a,i,m:integer;
begin
   writeln('vvedite chislo ogranichitel');
   readln(m);
   writeln('vvedite chislo < ',m);
   readln(a);

   while (a <= m) do
   begin
      for i:=1 to a do
         write(i, ' ');
      writeln();

     writeln('vvedite chislo < ',m);
     readln(a);

    end;

   writeln('konec!');
   readln();
end.