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.