Дана последовательность чисел, завершающихся 0. Найти сумму кратных чисел, кратных 4....

Question

Дана последовательность чисел, завершающихся 0. Найти сумму кратных чисел, кратных 4. (Паскаль)

Answer 1

begin

ReadSeqIntegerWhile(t->t<>0).Where(t->t mod 4 =0).Sum.Println

end.