Паскаль. Помогите с решением. много раз пытались решить, но в ответе даёт не то, что...

Question

Паскаль. Помогите с решением. много раз пытались решить, но в ответе даёт не то, что нужно. Заранее спасибо

Нужно написать любое слово в столбик
а)Например:
слово
слов
сло
сл
с
б)Например:
с
сл
сло
слов
слово

Answer 1

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Вводите:');
  for var i:=1 to s.Length do s[:i+1].Println;
  Writeln;
  for var i:=s.Length downto 1 do s[:i+1].Println;
end.

Пример
Вводите: слово
с
сл
сло
слов
слово

слово
слов
сло
сл
с