урок 14.1 Задача 6

урок 14.1 Задача 6

Пользователь по запросу программы вводит в цикле целые положительные числа, до тех пор пока не введет число большее 30. В ответ на каждое введенное пользователем число выводите все числа от 1 до этого введенного числа m.
При этом:
за выводит чисел от 1 до $m должна отвечать процедура
получение значения должно проходить в теле основной программы

Решение:

var m, a, i: integer;
begin
write('Введите положительное число: ');
readln(m);
  while (m <= 30) do
  begin
    write('Введите положительное число: ');
    readln(m);
      if (0 < m) and (m <= 30) then
        for i:=1 to m do
          write(i, ' ');
  end;
  readln();
end.