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

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

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

var m, a, b: integer;

begin
  writeln('vvedite chislo ogranichitel : ');
  readln(m);
  while a<=m do
    begin
      writeln('vvedite chislo: ');
      readln(a);
      b:=1;
        while b<=a do
          begin
            if (a > 1) then
            write (b, ' ');
            b:=b+1;

          end;

        writeln();
    end;
  writeln();
  writeln('<<Konec>>');
  readln();
end.