Помогите срочно!!!! 40 баллов! Произвести доскональные письменные вычисления с приведенным

А для чего Вы указываете все время какие-то сказочные баллы? Сколько их - система и так пишет, а с Вашими числами они непрерывно не совпадают.

И еще - Вы пренебрегали указать значение n

Тоже желал спросить: какое N мы вводим?

Любое, видимо

10

[1] N=10

[2] S=3, x1=2, x2=1

[7] Цикл

[7] i=3

[8] x=1.1, S=4.1, x1=1, x2=1.1

[7] i=4

[8] x=1.03, S=5.13, x1=1.1, x2=1.03

[7] i=5

[8] x=0.989, S=6.119, x1=1.03, x2=0.989

[7] i=6

[8] x=0.9457, S=7.0647, x1=0.989, x2=0.9457

[7] i=7

[8] x=0.90491, S=7.96961, x1=0.9457, x2=0.90491

[7] i=8

[8] x=0.865783, S=8.835393, x1=0.90491, x2=0.865783

[7] i=9

[8] x=0.8283629, S=9.6637559, x1=0.865783, x2=0.8283629

[7] i=10

[8] x=0.79255777, S=10.45631367, x1=0.8283629, x2=0.79255777

[9] S=10.45631367

10.45631367

А это текст программки в PascalABC.NET 3.4, которая расписала вывод. Не вручную же,  на самом деле, его писать !!!

begin

 var n := ReadInteger;

 '[1] N=n'.Println;

 var (s, x1, x2) := (3.0, 2.0, 1.0);

 '[2] S=s, x1=x1, x2=x2'.Println;

 if n = 1 then

 begin

   s := x2;

   '[3] N=1 -gt; [4] S=s'.Println

 end

 else

 if n = 2 then

 begin

   s := x1 + x2;

   '[5] N=2 -gt; [6] S=s'.Println

 end

   else

 begin

   '[7] Цикл'.Println;

   for var i := 3 to n do

   begin

     '[7] i=i'.Println;

     var x := 0.8 * x2 + 0.15 * x1;

     s += x;

     x1 := x2;

     x2 := x;

     '[8] x=x, S=s, x1=x1, x2=x2'.Println

   end;

 end;

 '[9] S=s'.Println;

 s.Println

end.