Вопрос по информатике:

Имеется алгоритм задания массива из 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