Найти заданную сумму положительных элементов,сумму четных и суммы первых пяти.
НУЖЕН КОД ДЛЯ ПОСКАЛИ!Помогите пожалуйста.

begin   var arr := arrRandom(10, -10, 10);   write('Исходный массив: ');   foreach var e in arr do write(e : 4);   writeln();   writeln('Сумма положительных элементов: ',            arr.Where(e -> e >= 0).Sum(e -> e));   writeln('Сумма чётных элементов: ',            arr.Where(e -> e mod 2 = 0).Sum(e -> e));   writeln('Сумма первых 5 элементов: ',            arr.Take(5).Sum(e -> e));end.