Найти сумму всех отрицательных чисел однородно массива. массив вводится с клавиатуры.

program zz1;

const n = 5;  // задаем количество частей в массиве

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

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел с клавиатуры и записываем их в массив

read(m[i]);

for i:=1 to n do  // организуем цикл, в котором переберем все элементы массива

  if m[i] lt; 0 then s:=s + m[i]; // проверяем, если элемент массива отрицательный, то добавляем его к сумме

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

end.