Дано трёхзначное число, найти его число при прочтении его цифр справа налево паскаль

var

a, b, i: integer; / / объявляем переменные целочисленного типа.

s : string; / / объявляем переменную строкового типа.

begin

write ('Введите трехзначное число:'); / / вывод строки на экран.

read (a); / / считываем число, введенное с клавиатуры.

while a > 0 do / / начало цикла.

begin

b : = a mod 10; / / определяем последнюю цифру числа.

s:=s + inttostr (b); / / сохраняем цифры числа в обратном порядке.

a : = a div 10; / / удаляем последнюю цифру из числа.

end;

write ('Ответ: ', s); / / вывод ответа на экран.

end.