Дано трехзначное число. в нем зачеркнули первую цифру и приписали ее в конце числа, а вторую и третью поменяли местами. составить программу для нахождения полученного числа

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:=d * 100 + c * 10 + b; / / формируем новое трехзначное число по заданному правилу

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

end.