Pascal ABC ПОМОГИТЕ СРОЧНО ДАЮ 40Б! Дана целочисленная последовательность. Признаком завершения последовательности является ноль, записанный после последнего элемента последовательности. Вычислить сумму каждого третьего элемента, начиная с первого.
begin
var a := ReadSeqIntegerWhile(x -> x <> 0).ToArray;
a.Where((el, ind)-> ind mod 3 = 0).Sum.Println;
end.
а можно обьяснение
а то так функции не работают в free pascal
в фрипаскале это не работает
обьясните код,который вы написали