Алгоритм вычисления функции F(n) задан следующими соотношениями: F(n) = 1 при n = 1

F(n) = 2·F(n–1), если n чётно,

F(n) = 5n + F(n–2), если n нечётно.

var a,b:integer;

f:array [0..24] of integer;

begin

for var n:=1 to 24 do begin

  if n=1 then

    f[n]:=2;

  if n mod 2=0 then

    f[n]:=2*f[n-1]

  else

    f[n]:=5*n+f[n-2]

end;

writeln (f[24]);

end.