задача 7 урок 17

задача 7 урок 17

Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:

rewt34t54346t566

то в ответ программа должны вывести:

r
ew
t34
t543
46t56
6

РЕШЕНИЕ

program task_7_lesson_17;
var  s: string;
     i, n, m: integer;
begin
  readln(s);
  m := 1;  // кол-во элементов в следующей строке
  n := 0;  // кол-во элементов в текущей строке сравниваю с М
  i := 1;  // первый элемент
  while i <= length(s) do
    begin
      write(s[i]);
      n += 1;
      if (n = m) then
      begin
        writeln();
        m += 1;
        n := 0;
      end;
      i += 1;
    end;
  readln
end. 

КОНСОЛЬ

wrtret3245636rtert
w
rt
ret
3245
636rt
ert