(извените вопрос не про школу)
я играю в майнкрафт и там сделал механизм чтобы в рамке крутишь предмет, то делается действие. сделал также с командным блоком но действие происходит 1 раз как сделать чтобы было бесконечно
т. е. я пишу в командном блоке
/give @p minecraft: tnt
я кручу предмет и выдаётся 1 раз что делать я потом кручу не выдаётся

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

В  double d1,d2 добавить переменную суммы s
double d1,d2,s;
вместо  ???   записать    s=d1+d2;

7)Руслан
8)друга ищи,а найдешь-береги
старый друг лучше новых двух