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

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

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

var i, c, m, n: integer;
begin
  i := 1;
  writeln ('vvedite ogranichitel') ;
  readln (m);
  repeat 
    writeln ('vvedite chislo'); 
    readln (n);
    c := 1;
    while (c<n) do 
      begin
        if (c mod 2)=0 then
        write (c,' ');
        c+=1;
      end;
    writeln(); 
  until (n >= m);
  writeln('End');
  readln();
end.

Вывод консоли:

vvedite ogranichitel
10
vvedite chislo
9
2 4 6 8
vvedite chislo
11
2 4 6 8 10
End