begin
var x:=ReadString('Введите число: ');
Println(x, ' --- ', x[2]+x[3]+x[1]);
end.
Как вариант)
PascalABC.NET
var n := ReadInteger;
Print(10 * (n mod 100) + n div 100)
