ОЧЕНЬ, РЕШИТЕ ЗА 8 КЛАСС, БЕЗ ВСЯКИХ МУДРЕНИЙ.

Пользователь вводит трехзначное число. Программа вычеркивает первую слева цифру и дважды дописывает справа эту цифру. Выводит на экран результат.

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.

Объяснение: