var a := ReadString().ToCharArray.ToList; //Читаем с консоли число как строку, разбиваем на массив символов и приводим к типу List<T> для удобства работы
var fnum := a[0]; //Запишем в переменную fnum первый элемент получившегося списка цифр нашего числа (то бишь первую слева цифру)
a.Remove(fnum); //Удалим из этого списка эту цифру
a.AddRange(Seq(fnum, fnum)); //Добавим в конец нашего списка цифр эту самую последнюю цифру два раза
a.JoinIntoString.Println; //Соберём элементы нашего списка в строку и выведем на печать
PascalABC.NET 3.5.1
begin
var a := ReadString().ToCharArray.ToList; //Читаем с консоли число как строку, разбиваем на массив символов и приводим к типу List<T> для удобства работы
var fnum := a[0]; //Запишем в переменную fnum первый элемент получившегося списка цифр нашего числа (то бишь первую слева цифру)
a.Remove(fnum); //Удалим из этого списка эту цифру
a.AddRange(Seq(fnum, fnum)); //Добавим в конец нашего списка цифр эту самую последнюю цифру два раза
a.JoinIntoString.Println; //Соберём элементы нашего списка в строку и выведем на печать
end.
Объяснение: