Дана последовательность чисел
найти сумму чисел меньше 10 или больше 50
написать программу на языке паскаль

информатика 9 класс

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

begin

 var n := ReadInteger('Число членов последовательности:');

 var s := ReadSeqInteger('Вводите:', n)

     .Where(p -> (p < 10) or (p > 50)).Sum;

 Println('Сумма отобранных членов равна', s)

end.