9. составить алгоритм и написать решение на паскале: дано целое трехзначное число. разбить его на цифры и вывести их на экран в обратном порядке.

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