Написать программу на языке Паскаль Дано 3-значное число. В нем зачеркнули первую справа цифру и приписали ее в начало. Найти полученное число.

Program ;Var x: Integer;Begin Repeat Write('Введите 3-значное число: '); Read(x); Until (x >= 100) and (x < 1000); Writeln('Результат: ', x mod 10, x div 100, x div 10 mod 10 );end.