Вычислить 10 членов последовательности, заданной формулой: ak=k^2/(k^2+1)

Xx  x x x   т.к. первое нечет-е тогда возьмем любое нечет-е. и две 7. 1 0 0 7 7   код не содержит 0     1 1         1 11 19 77 (8 комбинаций)     2 2         код не содержит 2     3 3         1 31 77 39 77 (8 комбинаций)     4 4         1 41 1 49 77 (8 комбинаций)     5 5         1 51 1 59 77 ( 8 комбинаций)     6 6         1 61 1 69 77 (8 комбинаций)     7 7         1 71 1 79 77 (8 комбинаций)     8 8         1 81 1 89 77 (8 комбинаций)     9 9         1 91 1 99 77 (8 комбинаций)                                               8+8+8+8+8+8+8+8=64 раза ему придется                                                     комбинировать.

Var c: array[1..18] of integer; i,p,s,k: integer; beginp: =1; for i: =1 to 18 do beginc[i]: = random(10)-5; write(c[i]: 4); if c[i] = 0 then k: = 1; if k = 0 then p: = p * c[i]else s: = s + c[i]; end; writeln; write('произведение = ',p , ' сумма = ',s); end. var c: array[1..30] of integer; i,max,q: integer; beginfor i: =1 to 30 do beginc[i]: = random(100)-50; write(c[i]: 4); if c[i] > max then  begin  max: = c[i]; q: =i; end; end; writeln; c[q]: = 0; for i: =1 to 30 dowrite(c[i]: 4); end.