Дано трехзначное число х, вводимое с клавиатуры. первую цифру этого числа перенесли в конец. вывести на экран полученное число.( работать в паскале)

Program hhh54;
var x:longint;
begin
  read (x);
  x:=(x div 100) + ((x div 10) mod 10)*100 + (x mod 10)*10;
  write (x);
end.