Нарисовать блок- условие : записать число n в обратном порядке

Блок-схему не нарисую, просто дам условие для 2-х значного числа:
program abc;
var a, b, c:integer;
begin
readln(a);
b:=a div 10;
c:=a mod 10;
writeln(c,b);
end.
(Для 3-х значного или 4-х значного числа нужно составлять другую программу).