Имеется алгоритм массива из 10 целых чисел по некоторому правилу. какое количество четных чисел получилось в массиве, если задать значение переменной n = 13 после выполнения данной программы? program massiv; var i, n,s,d: integer; mas : array [1..10] of integer; begin readln(n); s: = 1; d: = 2; while n > = d do begin s: = s + d -3; d: = d+1; end; mas[1] : = s; for i: = 2 to 10 do mas[i]: = 2*i – mas[i-1]; end. а) 0 б) 10 в) 5 г) 1