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

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;vara: integer;begin      Write('Введите трёхзначное число: ');   readln(a);   a:= ((a mod 10) *100)+(((a div 10) mod 10)*10)+(a div 100);   Writeln('Полученное число = ',a);  End.