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

var a,s,d,e:integer; 
begin 
read(a); 
s:=a div 100; 
d:=(a div 10)mod 10; 
e:=a mod 10;   
writeln(e,d,s);   
end.

program cislonaoborot;
var
a: integer;

begin    
  Write('Введите трёхзначное число: '); 
 readln(a); 
 a:= ((a mod 10) *100)+(((a div 10) mod 10)*10)+(a div 100); 
 Writeln('Полученное число = ',a);  
End.