Урок 17. Задача 7.

Урок 17. Задача 7.

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

r
ew
t34
t543
46t56
6

var  s :string;
     i, j, h :integer;

begin
  j := 0;
  h := 0;
  s := 'rewt34t54346t566';
  for i := 1 to length(s) do
  begin
    write(s[i]);
    if j = h then
    begin
      writeln();
      h := h + 1;
      j := 0;
    end
    else
      j := j + 1;
  end;  
end.