Задача по информатике, 10 класс, паскаль. Нужно, чтобы после каждой буквы в строке...

Question

Задача по информатике, 10 класс, паскаль.
Нужно, чтобы после каждой буквы в строке ставилась буква "а".

Answer 1

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

begin
  var s:=ReadlnString('Введите строку');
  for var i:=s.Length downto 1 do
    if s[i]<>' ' then Insert('а',s,i+1);
  Writeln(s)
end.

Пример
Введите строку Мама мыла раму маша ела кашу
Мааамааа маыалааа рааамауа мааашааа еалааа кааашауа