Составить программу, которая считывает 6 чисел, и выводит сумму неположительных чисел. Pascal

begin

 var n := 6;

 var a := ReadSeqReal(n).ToList;

 a.Where(x->x<0).Sum.Println;

end.