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

uses crt;

const Max=100;

var Matrix:array[1..Max,1..Max] of integer;

   i,j,Sum1,Sum2,m:integer;

begin

 clrscr;

 randomize;

 repeat

   writeln('Введите размерность квадратной матрицы ');

   readln(m);

 until m in [1..Max];

 for i:=1 to m do

   for j:=1 to m do

     Matrix[i,j]:=random(25);//при необходимости замените на ручной ввод

 for i:=1 to m do

   begin

     for j:=1 to m do

       write(Matrix[i,j]:4);

       writeln;

   end;

 Sum1:=0; Sum2:=0;

 for i:=1 to m do

   begin

     Sum1:=Sum1+Matrix[i,i];

     Sum2:=Sum2+Matrix[m-i+1,i];

   end;

 writeln('Сумма элементов главной диагонали:',Sum1);

 writeln('Сумма элементов побочной диагонали:',Sum2);

 readln;

end.

Объяснение:

       На доске по строчечке 
Разместились кнопочки 
Догадайтесь мальчики 
Как здесь тыкать пальчиком? (Клавиатура) 

Нет, она – не пианино, 
только клавиш в ней – не счесть! 
Алфавита там картина, 
знаки, цифры тоже есть. 
Очень тонкая натура. 
Имя ей ...(Клавиатура). 

То-то радость, то-то смех 
На бумаге, без огрех, 
Из какой коробки лезет 
Текст на удивленье всех? 
(Принтер) 

По ковру зверек бежит, 
То замрет, то закружит, 
Коврика не покидает, 
Что за зверь, кто угадает? 
(Мышка) 

Не зверушка, не летаешь, 
а по коврику скользишь 
и курсором управляешь. 
Ты – компьютерная...(Мышь). 

Чудо-юдо чемодан 
Лампа, кнопка да карман. 
Он окутан проводами 
Словно город Амстердам. 
(Системный блок)