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

Program Integer13;

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

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

end.