Можете У меня осталось 10 минут!​

1,44 мегабайта влезет 2 книги
в емкость в 700 мегабайт влезет 1 019 книг
в емкость 4.7 гб влезет 7 009 книг

теперь решение
всего в этой книге 720 000 символов. то есть 60 символов умножаем на 40 и умножаем на 300, будет 720 000 
потом 1 символ равен 8 битам, то есть 720 000 умножаем на 8 будет 5 760 000 бит.
1 байт = 8 бит(ам) 
1 клбайт = 1024 байта
1 мгбайт = 1024 клбайта
1 гигабайт = 1024 мгбайта
переводим 5 760 000 / 1024 = 720 00 байт 
720 000 байт делим на 1024 получаем 703.125  клбайт
703.125 / 1024 = 0,6866455078125 мегабайт
теперь делим 1,44 на 0,6866455078125 получаем 2.097152 (2 книги)
потом 700 мб делим на 0,6866455078125 получаем 1 019 книг
1 гигабайт равняется 1024 мегабайта, 4.7 умножаем на 1024 получаем 4 812,8 мегабайт, и делим 4 812, 8 мб на 0,6866455078125 и получаем 7 009 книг.

var
  x: string;
  arr: array of char;

begin
  readln(x);
  arr := x.Split(' ')[1].ToCharArray();
  System.Array.Reverse(arr);
  writeln(length(arr), '   ', new string(arr));
end.

var
  c: array of integer := (10, 20, 10, 30, 40, 50, 55, 1, 5, 9, 4, 3, 2);
  r, q, s: real;
  i, a, b: byte;
  
begin
  q := 1;
  i := 1;
  r := c.Min();
  while (i < length(c)) do
  begin
    q *= c[i];
    i += 2;
  end;
  readln(a, b);
  s := b - a - 1;
  writeln('T = ', (R / Q + 1) + S);
end.

const
  k = 5;
  p = 5;

var
  f: array [1..k, 1..p] of string;
  o: real;
  df: byte;

begin
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
    begin
      f[i, j] := random(10, 99).ToString();
      write(f[i, j]:3);
      if (j >= 7 - i) then
      begin
        o += integer.Parse(f[i, j]);
        df += 1;
        f[i, j] := '██';
      end;
    end;
    writeln();
  end;
  writeln();
  for i: byte := 1 to k do
  begin
    for j: byte := 1 to p do
      write(f[i, j]:3);
    writeln();
  end;
  writeln(o / df);
end.