Составить программу в паскале: стоимость экзаменационного комплекта по в составе тетради,ручки и учебника.

Program znanija; var    komlekt: array[1..10] of real;   begin            write('введите стоимость ручек: ');       readln(komlekt[1]);       write('введите колл. ручек: ');       readln(komlekt[2]);       komlekt[3]: =   komlekt[1] * komlekt[2];             write('введите стоимость тетрадей: ');       readln(komlekt[4]);       write('введите колл. тетрадей: ');       readln(komlekt[5]);       komlekt[6]: =   komlekt[4] * komlekt[5];             write('введите стоимость учебников: ');       readln(komlekt[7]);       write('введите колл. тетрадей: ');       readln(komlekt[8]);       komlekt[9]: =   komlekt[7] * komlekt[8];             writeln('в итоге: ');       writeln('тетрадей : ', komlekt[6],'(по ',komlekt[4],'р)');       writeln('ручек : ', komlekt[3],'(по ',komlekt[1],'р)');       writeln('тетрадей : ', komlekt[9],'(по ',komlekt[7],'р)');   end.

60 бит.

Объяснение: 1.8=2^i, отсюда i=3 бит (объем 1-ого символа) 2.3*20=60 бит.