Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132) — Pascal(Паскаль)

Program Integer16;

var
  x, a, b, c, p: integer;

begin
  Writeln('Введите число a');
  readln(x);
  a := x div 100;
  b := (x div 10) mod 10;
  c := x mod 10;
  p := a * 100 + c * 10 + b;
  Writeln('Перестановленное местами =', p);

end.