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

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

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

var a,i,m: integer;
begin
  writeln('vvedite 4islo ogranichitel` - ');
  readln(m);
  while (m > a) do
    begin
      writeln('vvedite vtoroe 4islo - ');
      readln(a);
      if (m < a) then break
      else
      if (a > 1) then
         for i := 1 to a do
             write(i, ' ');
             readln();
    end;
  writeln('poka!');
  readln();
end.