Ввести c клавиатуры массив из 9 элементов, вывести каждый третий элемент массива. Паскаль, 10 класс

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016begin  var a:=ReadArrInteger(9);  a.Where((x,i)->i mod 3 =2).Printlnend.Тестовое решение:5 8 -3 6 8 11 4 9 7-3 11 7