найти сумму отрицательных из 10 любых вещественных чисел введенных с кавиатуры

program zz1;

var i:integer; / / задаем переменную целого типа для цикла

a, s:real; / / задаем переменные не целого типа

begin

for i:=1 to 10 do / / организуем цикл на десять повторений

begin

read (a); / / вводим с клавиатуры очередное вещественное число

if a < 0 then s:=s + a; / / проверяем, если очередное число отрицательное, то добавляем число в сумму

end;

write (' сумма отрицательных из 10 любых вещественных чисел введенных с клавиатуры = ', s); / / выводим ответ

end.