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

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

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

program u14_1_z6;
var  m:integer;

procedure p1(m: integer);
var i:integer;
begin
  for i:=1 to m do
    write(i,' ');
  writeln();
end;

begin
  repeat
    writeln('vvedite chislo m');
    readln(m);
    if (m <= 30) then
      p1(m);
  until (m > 30);
  writeln('konec');
  readln();
end.