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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

var i,z,line_break,n : integer;
procedure x(var i,z: integer);
begin
  write(i, ' ');
  i += 1;
  z += 1;
end;

begin
  line_break := 1;
  i := 1;
  z := 0;
  write('vvedite N - ');
  readln(n);
  repeat
    x(i,z);
    if (z = line_break) then
    begin
      writeln();
      line_break += 1;
      z := 0;
    end;
  until (i > n);
  readln();
end.