Составьте программу, которая вычисляет произведение чисел от 1 до 100!

возникновение 8-ной системы связывают с такой техникой счета на пальцах, когда считались не пальцы, а промежутки между ними (их всего восемь).

в 1716 году король швеции карл xii предложил известному шведскому философу эмануэлю сведенборгу разработать числовую систему, основанную на 64 вместо 10. однако сведенборг считал, что для людей с меньшим интеллектом, чем король, оперировать такой системой счисления будет слишком трудно и предложил в качестве основания число 8. система была разработана, но смерть карла xii в 1718 году помешала ввести ее как общепринятую, данная работа сведенборга не опубликована.

program pr1; uses crt; var mas: array[1..100] of integer; pos: array[1..100] of integer; min: array[1..100] of integer; i,b,c: integer; beginclrscr; b: =0; c: =0; randomize; for i: =1 to 100 do mas[i]: =-100+random(200); for i: =1 to 100 do write(mas[i]); writeln(); for i: =1 to 100 do if mas[i]> =0 then begin b: =b+1; pos[b]: =mas[i]; end else begin c: =c+1; min[c]: =mas[i]; end; writeln('polojitelnye'); for i: =1 to b do write(pos[i]); writeln(); writeln('otricatylnye'); for i: =1 to c do write(min[i]); end.