Вывести трехзначное(123)число в обратном порядке. pascal например 123 вывести 321

Var ed,des,sot,ch: integer; begin readln(ch); sot: = ch div 100; des: = ch mod 100; des: = des div 10; ed: =ch mod 10; writeln(ed*100+des*10+sot); end.

const m=10; n=12; var a: array [1..m,1..n] of integer; i,j: integer; sob: integer; sst: array[1..n]of integer; sstr: array[1..m]of integer; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begina[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; sob: =0; for i: =1 to m do beginfor j: =1 to n do beginsob: =sob+a[i,j]; end; end; writeln('сумма всех элементов массива = ', sob); writeln; writeln; for i: =1 to m do beginsstr[i]: =0; for j: =1 to n do beginsstr[i]: =sstr[i]+a[i,j]; end; end; writeln('сумма элементов построчно'); for i: =1 to m do write(sstr[i]: 3); writeln; writeln; for j: =1 to n do beginsst[j]: =0; for i: =1 to m do beginsst[j]: =sst[j]+a[i,j]; end; end; writeln('сумма элементов по столбцам'); for j: =1 to n do write(sst[j]: 3); end.

Теремок на новый лад (информатика) стоит в лесу теремок мимо шел системный блок постучался – нет ответа и решил он - так и быть буду сам я в доме жить провода свои достал и в теремок их запихал. вот стоит он среди леса а навстречу монитор: - о, здорово, блок системный можно мне с тобою жить будем долго мы дружить? ! - да, конечно, заходи только силы береги знай! нагрузка на тебя сильная легла вот, живут они, но что-то… не хватает им кого – то так решил системник шнуров вдруг, идет клавиатура - о, я тоже к вам хочу я детишек научу на компьютере печатать и ……… не успела она сказать, как тут пришел модем опять: - подключу вас к интернету все прочитают сказку эту! вот их четверо живет издалека принтёр идет - распечатаю я вам вашу сказку по слогам. вот их пятеро теперь, но скрипит в прихожей дверь и заходит мышка к ним с длинным хвостиком своим к блоку мышка подошла и свой хвостик отдала провода все подключили и компьютер !