Задание 5 Урок 13.1

Задание 5 Урок 13.1

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

var i,m,i1 : integer;

begin
  i := 1;
  write('Введите число ограничитель и нажмите ENTER: ');
  readln(m);
  while (i <= m) do
  begin
    write('Введите число и нажмите ENTER:  ');
    readln(i);
    if ((i > 1) and (i <= m)) then
      for i1 := 1 to i do
        write(i1, ' ');
      	writeln();
  end;
  write('Программа закончена, нажмите ENTER!');
  readln();
end.