Перевести числа из десятичной в двоичную сс , восьмиричную и шестнадцатиричную. числа 14 , 103 , 138 , 301все числа в 10-ой сс)

Делить исходное число на 2 (8 или 16) остатки записать в обратной последовательности в двоичную -  1110,1100111, 10001010, 100101101 в восьмеричную - 16, 147, 212, 455 в  шестнадцатеричную - e, 67, 8a, 12d

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив 8x6 ***');   var c: =matrrandom(8,6,-99,99);   c.println(4); writeln(4*c.colcount*'-');   writeln('произведения элементов, больших -7, построчно: ');   foreach var row in c.rows do       writeln(row.where(x-> x> -7).aggregate(int64(,q)-> p*q)); end. пример *** исходный массив 8x6 ***   -50    8 -15  55  91 -53   -25  82  33  65  19 -63   99  49 -80  84  -2  68   -52 -63 -58  23  89  58   81 -45 -71 -85  34  66   -35    2  23  26 -33 -56   74  35 -35  21  15 -77   40  87 -11  77 -74 -65 произведения элементов, больших -7, построчно: 40040 3341910 -55417824 118726 181764 1196 815850 267960

01. program  massiv5; 02. uses  crt; 03. const  n=10; 04. type  x=array  [1..n]  of  integer; 05. var  a: x; 06. i: integer; 07. max: integer; 08. imax: integer; 09.begin10.clrscr; 11.randomize; 12. for  i: =1  to  n  do13.begin14. a[i]: = -50+random(101); 15. write  (a[i]: 5)16. end; 17. writeln; 18. imax: =1; 19. max: =a[1]; 20. for  i: =2  to  n  do21. if  max< a[i]  then22.begin23.max: =a[i]; 24.imax: =i25. end; 26. writeln  (‘максимальный элемент в массиве=’,max: 5); 27. writeln  (‘его индекс=’,imax: 5); 28.readln29. end.