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

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

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

var i, j:integer;
  begin
    readln(i);
    readln(j);
    while j<i do
      begin
        for j:=j downto 1 do
          writeln(j);
      writeln();
      readln(j);
      end;
  readln();
  end.