Паскаль розробіть програму, яка визначатиме добуток чисел від 1 до 30

Program al; var p,i: integer;     begin      p: =1;     for i: = 1 to 30 do    p: =p*i;     writeln('p=',p);     readln;     end.

1.переводим два двоичных кода в восьмеричную1) 10001111110111110000(2) =  589296( 10)10001111110111110000(2)  = 1∙2^19+0∙2^18+0∙2^17+0∙2^16+1∙2^15+1∙2^14+1∙2^13+1∙2^12+1∙2^11+1∙2^10+0∙2^9+1∙2^8+1∙2^7+1∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+0∙2^1+0∙2^0= 524288+0+0+0+32768+16384+8192+4096+2048+1024+0+256+128+64+32+16+0+0+0+0 = 589296(10)   2)  11111110111110001(2) =  130545(10) 111111101111100012   = 1∙2^16+1∙2^15+1∙2^14+1∙2^13+1∙2^12+1∙2^11+1∙2^10+0∙2^9+1∙2^8+1∙2^7+1∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+0∙2^1+1∙2^0   = 65536+32768+16384+8192+4096+2048+1024+0+256+128+64+32+16+0+0+0+1 = 130545(10)   2.перевести два двоичных кода в шестнадцатеричные 1)  110111000001001(2) =  6e09(16) переводим двоичный в десятичную 110111000001001(2)   = 1∙2^14+1∙2^13+0∙2^12+1∙2^11+1∙2^10+1∙2^9+0∙2^8+0∙2^7+0∙2^6+0∙2^5+0∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0   = 16384+8192+0+2048+1024+512+0+0+0+0+0+8+0+0+1 = 28169(10) теперь десятичную в шестнадцатеричную28169/16 = 1760 (остаток 9) 1760/16 = 110 (остаток 0) 110/16 = 6    (остаток 14=e) собираем наши остатки и реверсируем (начиная с конечного равенства, т.е. с 6 (110/16=6) ответ: 6e09(16) 2)  1101111111001(2) =  1bf9(16)сначала переводим в десятичную1101111111001(2) =  1∙2^12+1∙2^11+0∙2^10+1∙2^9+1∙2^8+1∙2^7+1∙2^6+1∙2^5+1∙2^4+1∙2^3+0∙2^2+0∙2^1+1∙2^0   = 4096+2048+0+512+256+128+64+32+16+8+0+0+1 = 7161(10) теперь число  7161 переведём в шестнадцатеричную 7161/16 = 447 (остаток 9) 447/16 = 27 (остаток 15=f) 27/16 = 1 (остаток 11=b) ответ:   1bf9(16)