Что объединяет жаккардов станок и холлерита

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

begin
  var ИсходноеЧисло:=ReadlnString('Введите исходное целое число:');
  var МассивЦифрЧисла:=ИсходноеЧисло.ToCharArray;
  var МестоМаксЦифры:=МассивЦифрЧисла.IndexMax;
  var МестоМинЦифры:=МассивЦифрЧисла.IndexMin;
  If МестоМинЦифры>МестоМаксЦифры then Swap(МестоМинЦифры,МестоМаксЦифры);
  ИсходноеЧисло:=ИсходноеЧисло?[:МестоМинЦифры+1]+
      ИсходноеЧисло?[МестоМаксЦифры+2:];
  Writeln('Результат замены: ',ИсходноеЧисло)
end.

Пример
Введите исходное целое число: 1402956387
Результат замены: 1456387

Написал, но должен предупредить.

Во-первых, программа принимает текст, независимо от того, сколько строк было введено, и "читать" она перестанет только после ввода символа с кодом 0, напечатать который можно сочетанием клавиш [email protected]

Во-вторых, ты выводишь результат в строку, но, на мой взгляд, из-за этого выходит какой-то bull sh, так что я использую на "Write()", а "WriteLine()". Ты же можешь поменять, если критично.

Код ниже

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace kekus3{
 class main {
  static void Main(string[] args) {
   string s = ""; char buff;
   while ((buff = (char)Console.Read()) != 0)
    s += buff.ToString();
   Console.WriteLine();
   for (int i = 0; i < s.Length; ++i)
    if (s[i] >= '0' && s[i] <= '9')
    Console.WriteLine(" {0} элемент - {1}", i+1, s[i]); Console.ReadKey();
  }
 }
}

Код выше