Урок 16. Задача №8. Решение.

Урок 16. Задача №8.

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

rewt34t54346t566

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

r
ew
t34
t543
46t56
6

var str : string;
  i, j, count : integer;
begin
  count := 1;
  writeln('Enter arbitrary string: ');
  readln(str);
  for i := 1 to length(str) do
  begin
    write(str[i], ' ');
    j += 1;
    if(count <= j) then
    begin
      writeln();
      count += 1;
      j := 0;
    end;
  end;

  readln(); // Удержание консоль
end.// Завершение программы