с заданием по информатике Алгоритм вычисления значения функции F(n), где n - натуральное число, задан следующими соотношениями:
F(n)=2 при n ⩽ 0;
F(n)=F(n-2)+F(n-1)+F(n div2) при n>0.
Требуется выяснить, чему равно значение функции F(10).

На Pascal:

program HomeWork;

var n:integer;

function Fn(n:integer):integer;

   begin

       if n <= 0 then Fn:=2

       else Fn:=Fn(n-2)+Fn(n-1)+Fn(n div 2)

   end;

begin

   write('Вычислим значение функции F(n). Введите n (целое число): '); readln(n);

   write('F(', n, ')=', Fn(n))

end.