Дано трехзначное число. вывести число, полученное при прочтении исходного числа справа налево. через паскальАБС

Решение задачи:

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.