PascalABC.NET
begin
var a := ReadInteger('Введите число от 100 до 999 = ').Clamp(100,999);
Print('ответ:',a div 100 + a mod 10 * 100 + a mod 100 div 10 * 10);
end.
