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

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

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

program task5;
var a,m,b: integer;
begin
  writeln ('Vvedite max chislo');
  readln(m);
  while (b<=m) do
  begin
    writeln ('Vvedite chislo');
    readln(a);
    b:=a;
    if (a>1) then
    begin
      while (a<=m) do
      begin
        write(a,' ');
        a:=a+1;
      end;
      writeln();
    end;
  end;
  readln()
end.