НА ПАСКАЛЕ!!! 1. Написать программу которая будет выводить сумму четных цифр(пока не введете 0). 2.Программа выводит количество четных цифр. 3.Программу которая будет выводить произведение введенных чисел пока не будет введен 0.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqIntegerWhile(t-gt;tlt;gt;0).Where(t-gt;t.IsEven).Sum)
end.

Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
2708

begin
  Writeln(ReadSeqIntegerWhile(t-gt;tlt;gt;0).Where(t-gt;t.IsEven).Count)
end.

Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
5

begin
  Writeln(ReadSeqIntegerWhile(t-gt;tlt;gt;0).Aggregate(Biginteger(1),(x,y)-gt;x*y))
end.

Пример
-65 973 571 -101 426 326 207 -85 850 551 713 340 766 0
-775118121479521866390147967800000