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

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

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

program lesson13_5;
var
    m, i, j: integer;
begin
    writeln('enter number m');
    readln(m);
    i := 1;
    while i <= m do
    begin
        writeln('enter number i');
        readln(i);
        if (i > m) or (i <= 1) then
            break;
        for j := 1 to i do
            write(j, ' ');
		writeln();
    end;
    readln();
end.