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

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

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

#include "iostream"
 #include <Windows.h> 
using namespace std;
int main() { setlocale(LC_ALL, "Russian");
int n,m,index,value;
value = 0;
int mas[50];
cout << "Введите колличество элементов матрицы: ", cin >> n, cout <<endl;
for (int i = 0; i < n; i++){
cout << "Введите " << i << " элемент матрицы: ", cin >> m;
mas[i] = m;
if (m < 0) {
index = i;
 value = m;
 } 
 }
cout << "Заданная матрица: ";
for (int i = 0; i < n; i++){
  cout << mas[i] << " ";
}
cout << endl << "Номер последнего отрицательного числа: " << index << endl;
cout << "Значение последнего отрицательного числа: " << value << endl; system("pause");
}

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(5,5,-9,9);
  a.Println(3); Writeln(15*'-');
  var s:=a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).OrderBy(t->t[0]);
  var c:=a.ElementsWithIndexes.OrderBy(t->t[0]).ToArray;
  Writeln('Знач. Кол-во Индексы');
  foreach var p in s do begin
    Write(p[0]:3,p[1]:7,'   ');
    var q:=p[0];
    var s1:=c.IndexesOf(t->t[0]=q);
    foreach var k in s1 do
      Write('(',c[k][1]+1,',',c[k][2]+1,') ');
    Writeln
    end
end.