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

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

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

var a, b, m: integer;
begin
  writeln('vvedite ogranichitel');
  readln(m);
  writeln('vvedite chislo');
  readln(a);
  while a <=m do
     begin
       if a > 1 then
         for b := 1 to a do
           write(b,' ');
         writeln();
         writeln('vvedite chislo');
         readln(a);
     end;
  writeln('konech');
  readln();
end.