// PascalABC.NET
// Версия 3.4 сборка 1749 (18.08.2018)
Если места нумеруются с 1:
begin
ReadlnString.Select((i, j)-> (i, j + 1)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println
end.
Если места нумеруются с 0:
begin
ReadlnString.Select((i, j)-> (i, j)).Where(t -> (t[1].IsOdd) and (t[1] mod 3 <> 0) and (t[0] = 'd')).Count.Println
end.