Написать программу на паскале: дано трехзначное число. в нем зачеркнули последнюю справа цифру и приписали ее в начале. найти это число.

Var
  A: integer;
Begin
  Write('Введите трёхзначное число: ');ReadLn(A);
  A := (A mod 10)*100 + (A div 10);
  WriteLn(A);
End.