Вturbo pascal: дано трехзначное число. написать программу осуществляющую вывод этого числа в обратном порядке

Program up1;
var a,w,e,q,r:integer;
begin
write('введите трехзначное число');
read(a);
q:=(a mod 10)*100;
w:=((a mod 10) mod 10)*10;
e:=a div 100;
r:=q+w+e;
write(r);
end.