Введите 3 числа, найдите разность и произведение чисел

#1
Статья набранная на компьютере содержит 8 страниц по 40 строк, в 1 строке 64 символа,определите информационный объем статьи в КБ, в кодировке Unicode.
Решение:
В кодировке Unicode, в распространенной версии один символ кодируется 2 байтами, т.е. 16 битами. 
Т.е. мы умножаем весь объём:8*40*64*16=327680 (бит) - объём статьи 
Теперь необходимо полученную величину в битах перевести в Кб.
1 байт = 8 бит
1 кб = 1024 байт
Поэтому мы в начале переводим в байты, а далее в Кб: 
327680:8:1024=40 Кб
ответ: 40 Кб - объем статьи

#2
Определите информационный объем слова из 24 символов, в кодировке Unicode.
Решение:
Как и было сказано выше, в данной кодировке 1 символ = 16 бит
Тогда мы 24*16=384 бит - объём слова
ответ: 384 бит или 48 байт.

#3
Определите объем сообщения в символе из 20 символов в кодировке КОИ-8.
Решение: 
В кодировке КОИ-8 каждый символ = 1 байту, или 8 битами.
Тогда 8 * 20 = 160 бит - объем сообщения
ответ: 160 бит или 20 байт.

USES CRT;
VAR A:array[1..3,1..3] of integer;   
        i,j,s,summa:integer;   
        sred:real;
BEGIN 
CLRSCR;
Randomize;

   summa:=0; 
   s:=0;
{Заполняем массив случайными числами от 0 до 15 и выводим на экран}
   For i:=1 to 3 do   
      begin   
         For j:=1 to 3 do     
            begin       
               A[i,j]:=Random(15);       
               Write(' ',A[i,j]:2,'  ');     
            end;    
         Writeln;   
      end;

{находим общую сумму всех элементов массива }
   For i:=1 to 3 do   
      For j:=1 to 3 do     
         begin       
            summa:=summa+A[i,j];       
            s:=s+1;     
         end;

   Writeln;
   Writeln(' ',summa,'   ',s);
   Writeln;
 
{Находим средне арифметическое число массива}
   sred:=summa/s;
   Writeln(' ',Средне арифметическое = ',sred:2:1);

   s:=0;

{считаем количество элементов превышающих среднее значение}
   For i:=1 to 3 do   
      For j:=1 to 3 do     
         if sred<A[i,j] then s:=s+1;

   Writeln;
   Writeln(' ',s,' элементов массива превышающие средне арифметическое');
READLN;
END.