Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число — Pascal(Паскаль)

Program Integer14;

var
  x, a, c, p: integer;

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

end.