Var i,x:integer;
s:string;
tmp:char;
begin
read(x);
s:=IntToStr(x);
for i:=1 to 5 do
write(length(s)-i+1);
end.
Нда. Я у мамы программист. С блок-схемой ничем не могу помочь, прости. По моему алгоритму ты просто записываешь данное число в строку и пишешь эту строку на экран в обратном порядке. Работает с числами любой размерности, не превышающей ограничения.