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

// 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.

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

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