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

Program Integer15;

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 := b * 100 + a * 10 + c;
  Writeln('Перестановленное местами =', p);

end.