Составить программу, которая считывает 6 чисел, и выводит сумму неположительных чисел. Pascal
begin
var n := 6;
var a := ReadSeqReal(n).ToList;
a.Where(x->x
end.