Дано трёхзначное число.найти число полученное при прочтение его цифр справа налево ( фото с flowgorithma

Var a:integer;
begin
write('Введите число: ');
readln(a);
if a<0 then write ('-');
while a<>0 do
begin
write (abs (a mod 10));
a:=a div 10
end
end.