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

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

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

var i, m, j: integer;
  begin
    write('vvedite chislo: ');
    readln(m);
    write('vvedite chislo: ');
    readln(j);

    while (m >= j) do
      begin
        if (j >= 1) then
          for i:=1 to j do
            write(i, ' ');
        writeln();
        write('vvedite chislo: ');
        readln(j);
      end;

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

КОНСОЛЬ:

vvedite chislo: 20
vvedite chislo: 15
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
vvedite chislo: 21
konec!