Известно, что в книге 200 страниц на каждой странице 70 строк в каждой строке 50 символов . какой информационный объём в байтах займёт книга на жёстком диске? ​

1.Алгоритм – это предназначенное для конкретного исполнителя точное описание последовательности действий, направленных на решение поставленной задачи. Алгоритм – модель деятельности исполнителя алгоритмов.
2.Редактирование – этап подготовки документа на компьютере, в ходе которого исправляются обнаруженные ошибки (например, в правописании)  и вносятся необходимые изменения.
3.Корзина – системная папка, в которую помещаются удаляемые файлы. Файл физически исчезает из памяти компьютера только после очистки корзины.
4.Таблица – перечень сведений, числовых данных приведенных в определенную систему и разнесенных по графам; разновидность информационных моделей. Используется для описания ряда объектов, обладающих одинаковыми наборами свойств.
5.Пользователь – человек, пользующийся услугами компьютера для получения информации или решения задачи.
6.Информатика – наука, изучающая закономерности протекания процессов передачи, хранения и обработки информации в природе, обществе, технике, а также автоматизации этих процессов с компьютера.
7.Данные – информация, представленная в форме, пригодной для обработки компьютером.
8.Вкладка – раздел (страница) диалогового окна.
9.Файл – информация, хранящаяся в долговременной памяти компьютера как единое целое и обозначенная именем.
10.Текст – любое словесное высказывание, напечатанное, написанное или существующее в устной форме. 

Var 
 A:array[1..60] of integer;
 k,i,MIN,ind, MAX,SUM:integer;
begin
 SUM:=0;
 readln(k);
 randomize;
 writeln('Исходный массив:');
 for i:=1 to 60 do
  begin
    A[i]:=random(15)-5;
    Writeln('A[',i,']=',A[i]);
   end;
 MIN:=32600;
 MAX:=-32600;
 for i:=1 to 60 do //Ищем минимальный элемент
  begin
   if a[i]<MIN then
    MIN:=a[i];
    ind:=i;
  end;
 for i:=1 to 60 do //Ищем максимальный элемент 
    if a[i]>MAX then
       MAX:=a[i];
 for i:=60 downto 60-k do //Сумма последних k элементов 
  SUM:=SUM+a[i];
 A[ind]:=SUM;
if A[1]>=0 then 
  for i:=1 to 60 do
   begin 
     A[i]:=A[i]*sqr(MIN);
     Writeln('A[',i,']=',A[i]);
   end
 else 
  for i:=1 to 60 do
   begin
     A[i]:=A[i]*sqr(MAX);
     Writeln('A[',i,']=',A[i]);
    end;
end.