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

program up1;var a,w,e,q,r:integer;beginwrite('введите трехзначное число');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.