Ввести три числа. Подсчитать сумму только положительных из трех данных чисел.

Question

Ввести три числа. Подсчитать сумму только положительных из трех данных чисел.

Answer 1

===== PascalABC.NET =====

begin

    ReadSeqInteger(3).Where(p -> p > 0).Sum.Print

end.