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

Урок 13.1

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

var m, a, i: integer;

begin
  a := 1;
  writeln('Vvedite chislo ogranichitel');
  readln(m);

  while(a <> m) do
  begin
  
    if(a > 1) then
    begin

      for i := 1 to a do
      writeln(i, ' ');

    end;
    
    writeln('Vvedite sleduyuschee chislo');
    readln(a);
    
  end;

end.

КОНСОЛЬ

Vvedite chislo ogranichitel
22
Vvedite sleduyuschee chislo
15
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
Vvedite sleduyuschee chislo
22