ДАЮ 20 Б.СРОЧНО.ПРОШУ.

Дана последовательность чисел -5 до 5 с шагом 0,5.Вычеслить значения s ; где S сумма отрицательных членов последовательности
В ПАСКАЛЬ АВС

begin

 SeqWhile(-5.0, x -> x + 0.5, x -> x <= 5.0).Where(x->x<0).Sum.Println;

end.