99 ! нужно ввести 2 строки, затем соединить их так, чтобы между ними стояла точка с запятой, и чтобы "а" заменялось "а". ужасно умоляю, хоть какие-нибудь находки!

Var s1,s2,s:string;
i:integer;
begin
writeln('Введите две строки:');
readln(s1);
readln(s2);
s:='';
for i:=1 to length(s1) do
 if s1[i]<>'а' then s:=s+s1[i] else s:=s+'A';
s:=s+';';
for i:=1 to length(s2) do
 if s2[i]<>'а' then s:=s+s2[i] else s:=s+'A';
writeln(s);
end.

Пример:
Введите две строки:
Ужасно умоляю
хоть какие-нибудь находки!
УжAсно умоляю;хоть кAкие-нибудь нAходки!

var

 menu, D, S: integer;

begin

 Writeln('Введите значение меню');

 Writeln('1 - известна большая диагональ');

 Writeln('2 - известна меньшая диагональ');

 Writeln('3 - Диагонали не известны');

 Readln(Menu);

 case menu of  

   1:  

     begin

       Writeln('Введите площадь и значение большей диагонали');

       Readln(s, d);

       Writeln('Длина меньше диагонали равна: ', (2 * s) / d)

     end;

   2:

     begin

       Writeln('Введите площадь и значение меньшей диагонали');

       Read(s, d);

       Writeln('Длина меньше диагонали равна: ', (2 * s) / d);

     end;

   3:

   Writeln('К сожалению волшебства не будет');

 end;

end.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Numerics;

public class Program

{

   public static void Main(string[] args)

   {

       Console.WriteLine("Enter 12 integer numbers");

       var Arr = new List<int>();

       for (int i = 0; i < 12; i++)

       {

           Arr.Add(int.Parse(Console.ReadLine()));

       }

       Console.WriteLine($"Кол-во нулевых элементов: {Arr.Where(p => p == 0).Count()}");

       Console.WriteLine($"Positive numbers product: {Arr.Where(p => p > 0).Aggregate(BigInteger.One, (p, q) => p * q)}");

       Console.ReadKey();

   }

}

Объяснение:

Добавьте ссылку на сборку System.Numerics в вашем проекте для корректной работы программы. Иначе будет ругаться на несуществующее пространство System.Numerics