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

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

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

var a, i, m : integer;

begin
  write('Enter an integer - m : ');
  readln(m);
  while (a <= m) do
  begin
    write('Enter an integer : ');
    readln(a);
    if (a > 1) and (a <= m) then
      for i := 1 to a do
        writeln(i, ' ');
  end;
  read();
end.