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

http://fkn.ktu10.com/?q=node/8697

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

program task5_lesson13_1;
var m, i, j : integer;
begin
  writeln('Enter limit number :');
  readln(m);
  writeln('Enter number smaller then limit ',m);
  readln(i);
  while i < m do
        begin
          if i > 1 then
             for j := 1 to i do
                 write(j, ' ');
          writeln();
          writeln('Enter number smaller then limit ',m);
          readln(i);
        end;
  readln();
end.