Задача 7 урок 16

Задача 7 урок 16

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

var   s: string;
i, n, h: Integer;
begin
 n:=1; //необходимо символов в строке
 h:=0; //счетчик вывода
 writeln('Vvedite stroku');
 readln(s);
   for i:=1 to length(s) do
     begin
       write(s[i]);
       inc(h);
       if h = n then
         begin
           writeln();
           inc(n);
           h:=0;
         end;
     end;
 readln();
end.