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

program zz1;

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

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

begin

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

begin

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

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

end;

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

end.