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

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

var a,m,i:integer;
begin
  writeln('Vvedite celoe chislo-ogranichitel: ');
  readln(m);
  a:=1;
  while m>a do
  begin
    writeln();
    writeln('Vvedite celoe chislo: ');
    readln(a);
    if(m<a)then break;
    if(a>1) then
      for i:=1 to a do
        write(i,' ');
  end;
end.   

Консоль:

Vvedite celoe chislo-ogranichitel: 
6


Vvedite celoe chislo: 
4

1 2 3 4 
Vvedite celoe chislo: 
5

1 2 3 4 5 
Vvedite celoe chislo: 
9