Дано пятизначное число, вывести на экран перевертыш. , нужно блок-схему и программу. заранее !

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.нда. я у мамы программист. с блок-схемой ничем не могу , прости. по  моему алгоритму ты просто записываешь данное число в строку и пишешь эту строку на экран в обратном порядке. работает с числами любой размерности, не превышающей ограничения.

Преимущества: - возможность быстрого поиска нужной информации; - возможность быстрой передачи информации по электронным сетям на большое расстояние; - возможность структурирования текстовой информации; - компактность хранения (относительно бумажных носителей); - автоматическая обработка информации; - возможность криптографической защиты информации. недостатки: - необходимы специальные устройства (компьютеры); - необходима электрическая энергия для работы спец. устройств; - необходимы навыки работы с компьютерами.

Var   n,i,j,c: integer;   mas: array[1..999] of integer; begin   readln(n);   for i: =1 to 2*n do   readln(mas[i]);   //группируем массив в порядке возрастания   for i : = 1 to  2*n-1 do     for j : = 1 to  2*n-i do       if mas[j] > mas[j+1] then     begin      c  : =  mas[j];       mas[j] : =  mas[j+1];       mas[j+1] : =  c;     end;   writeln('оптимальные пары: ');   for i: =1 to 2*n do  begin  if i mod 2 = 1 then    write(mas[i],' и  ');   if i mod 2 = 0 then    writeln(mas[i]);   end; end.