Дано описание массива:

vara:array[1..n]ofreal;

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

бухгалтерия, документооборот.

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.

0.27 - 0.09 = 0.18

или

27/100 - 9/100 = 18/100