Задача с перестеновкой цифр в числе Опции

[serg]

Дано трехзначное число. Найти число полученное при перестановке второй и третьей цифр заданного числа.В паскале.
Как я понимаю 3 число можно найти поделив на 10 и определив дробную часть,а 2ое число?

Добавлено через 12 мин.
А точнее как поменять не знаю(

[Игорь]

Можно находить разряды числа целочисленным делением и вычитанием, а потом при выводе поменять их.

program prog;

var
inp,a,b,c:integer;

begin
 readln(inp);
 a:=inp div 100;
 b:=(inp-(a*100)) div 10;
 c:=((inp-(a*100))-(b*10));
 writeln(a,c,b);
end.

[volvo]

Не надо лишних действий...

  n := 120;
  writeln(100*(n div 100) + 10*(n mod 10) + ((n div 10) mod 10));

[serg]

Игорь не работает(

Добавлено через 4 мин.
Volvo спасибо огромное!