Задача 19 Урок 13.1

Задача 19 Урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18: 1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18

var i,n,k,j: integer;
begin
  writeln('vvedite 4islo N - ');
  readln(n);

  k := 1; //simvoli ne perenosya stroku
  j := 0; //stol`ko viveli s perenosa stroki
   for i := 1 to n do
   begin
     write(i, ' ');
     j := j + 1;

     if (j >= k) then
     begin
       writeln();
       j := 0;
       k := k + 1;
     end;
   end;
   readln();
end.