Найди электронную версию любимый книги и определи приблизительный ее объём

Объём измеряется в битах
Мастер и Марагитра в формате txt вес 868 кб 
1 кб = 1024 байт
868 * 1024 = 888832 байт
1 байт = 8 бит
888832 * 8 = 7110656 бит ( объём книги)

1) д , 2) в . Наверно , мое личное мнение.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 

Не самое лучшее решение, но вот:

const
    n = 2;
    k = 2;
var
  i,j,s:integer;
  a:array[1..n,1..k] of integer;
begin
    s:=0;
  for i:=1 to n do
    for j:=1 to k do
    begin
     Writeln('Введите a[',i,',',j,']:');
     readln(a[i,j]);
     if a[i,j] mod 2=0 then s:=s+a[i,j];
    end;
  if s<0 then
    for i:=1 to n do
     for j:=1 to k do
      if j mod 2=0 then
       a[i,j]:=1;
  if s>=0 then
    for i:=1 to n do
     for j:=1 to k do
      if j mod 2=0 then
       a[i,j]:=-1;
 for i:=1 to n do
   begin
     for j:=1 to k do
   write('a[':4,i,',',j,']=',a[i,j]);
   writeln;
   end;
end.