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

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