Рассчитать сумму четных натуральных чисел от 7 до n​

1) var A: array [1..6] of integer = (-125,200,10,6,43,11);
2) 6
3) 11

Во всех источниках используются буквы в качестве передачи информации

Чтобы заработал этот код надо добавить первой строкой:
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

Маркёр,Кисть,Линейка