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

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму.

var i, N, a, b, c: integer;

procedure line(x, y: integer; var z: integer);
begin
  for i:=1 to x do
    begin
      if (y > s) then
        break
      else
        begin
          write(y, ' ');
          y := y + 1;
        end;
    end;
    z:=y;
end;

begin
  a := 1;
  b := 1;
  writeln('Vvedite N');
  readln(N);
  while (c <= N) do
    begin
      line(a, b, N, c);
      a := a + 1; //количество символов в строке
      b := c;
      writeln();
    end;
  readln();
end.