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

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

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

program zadacha5;
var i, m, j: integer;
begin
  writeln('Vvedite chislo-ogranichitel');
  readln(m);
  i:=1;
  while (i <= m) and (i >= 1) do
    begin
      j:=1;
      writeln('Vvedite chislo');
      readln(i);
        while j <= i do
          begin
            write(j,' ');
            j:=j+1;
          end;
      writeln();
    end;
  writeln('Vvedeno chislo menshe 1 ili previshen ogranichitel');
  readln();
end.