Дано трехзначное число. вывести число, приобретенное при прочтении начального числа справа

Решение задачки:
var a, x, y, z: integer;
begin
write(Введите трехзначное число: );
readln(a);
x:=a div 100; //Исполненье целочисленного дробления трехзначного числа на 100.
y:=(a mod 100) div 10;//Нахождение остатка от разделенья введенного числа на 100 и потом вычисление целочисленного дробления остатка на 10.
z:=a-x*100-y*10;
writeln(Ответ: , z, y, x);
end.