Урок 13 Задание 5

Задание 5 Урок 13

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

var a,i,m: integer;
begin
  a:=0; 
  writeln ('введи число m'); 
  readln (m); 
  begin
    while a < m do 
    a:=a+1;
    writeln ('введи число a'); 
    readln (a);
    begin
      if a>m then
        begin
          for i:=1 to a do
          write (i,' ');
          i:=i+1;
        end;
    end;
  end;
end.

Konsol

введи число m
7
введи число a
19
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19