// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!
№1
begin
var s:=ReadlnString;
var c:=s.Last;
s:=s.Replace(c,'')+c;
Writeln(s)
end.
Пример
12431531
243531
№2
begin
Writeln('Max=',ReadlnString.ToIntegers.Max);
end.
Пример
234 -23 0 23 32 753 -123134 1523 14
Max=1523