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

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

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

var
  i, a, m: integer;
begin
  writeln('Vvedite chislo ogranichitel: ');
  readln(m);
  writeln();
  writeln('Vvedite celoe chislo: ');
  readln(a);
  while (a < m) do
     begin
       if (a > 1) then
          begin
            for i:= 1 to a do
               write(i, ' ');
          end;
     writeln();
     writeln('Vvedite celoe chislo: ');
     readln(a);
     end;
  writeln('Cikl zaverschen');
  readln();
end.