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

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

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

var i, x, c :integer;
begin
  writeln('vvedi chislo ogranichitel ');
  readln(i);
  while (x <= i) do
    begin
      writeln('vvedi celoe chislo');
      readln(x);
      if((x > 1) and ((x <= i))) then  //(x <= i) от последнего срабатывания
        for c := 1 to (x) do
          write(c , ' ');
    end;
end.