10,выразите кол-во информации в различных единицах

Для начала , чтобы найти I(Обьем книги)=(кол.станиц×кол.строк×кол.символов×вес 1 символа)I=12×33×62×8=196 416 бит, теперь переводим в кбайты 196 416 / 8 = 24 552 байт ; 24 552 / 1 024 = 23,9765625=кбайт , округляем будет 24
кбайт.Ответ:24 кбайт нужно выделить.

На чем нужно писать, где конкретика? А вообще сюда нужно нормальное ТЗ и фрилансеры

Чтобы заработал этот код надо добавить первой строкой:
function G(n:integer):integer;forward;
Так как в функции F присутствует вызов функции G, которая описана далее в программе.


function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
  if n > 2 then
    F := F(n - 1) + G(n - 2)
  else
    F := 1;
end;

function G(n: integer): integer;
begin
  if n > 2 then
    G := G(n - 1) + F(n - 2)
  else
    G := 1;
end;

begin
  writeln(F(7));
end.

Ответ: 13