Написать на языке Паскаля. Даны числа. Найти сумму отрицательных чисел

program zz1;

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

begin

write (' введите количество заданных чисел '); / / вводим с клавиатуры число

read (n);

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

begin

read (a); / / вводим очередное число

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

end;

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

end.