PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger('n=');
var (n1, n2, n3) := (n div 100, n div 10 mod 10, n mod 10);
Println(100 * n2 + 10 * n1 + n3)
end.
Пример
n= 627
267