Hаписать программу для решения следующей вычислить модуль суммы отрицательных элементов числовой последовательности

program abc;

var a,k,o:integer;

begin

  o:=0;

  writeLn('Введите кол-во элементов');

  write('=> ');

  readLn(k);

  writeLn('Введите элементы числовой последовательности: ');

  for i:integer:=1 to k do

  begin

     readLn(a);

     if a<0 then o:=o+abs(a);

  end;

  write('Модуль суммы отрицательных элементов равен ');

  writeLn(o);

end.

Объяснение:

abs(a) - функция, возвращающая модуль числа a