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

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

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

Решение:

var a, b, m : integer;

begin
  writeln('Введите целое число - огронечитель : ');
  readln(m);
  while (a <= m) do
    begin
      writeln('Введите целое число : ');
      readln(a);
      if (a > 1) and (a <= m) then
        for b := 1 to a do
          writeln(b, ' ');
    end;
  readln();
end.