Var a:integer;
begin
read(a);
write((a div 10 mod 10)*100+(a div 100)*10+a mod 10)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.