Дано трехзначное число. В нем зачеркнули первую цифру слева и приписали ее в конце. Найти полученное число.

program zz1;

var a, b, c, d : integer; / / задаем переменные целого типа

begin

write (' введите трехзначное число '); / / вводим с клавиатуры трехзначное число

read (a);

b:=a div 100; / / получаем первую цифру трехзначного числа

c: = (a div 10) mod 10; / / получаем вторую цифру трехзначного числа

d:=a mod 10; / / получаем третью цифру трехзначного числа

a:=c * 100 + d * 10 + b; / / формируем новое трехзначное число по заданному правилу

writeln (' полученное число = ', a); / / выводим ответ

end.