Написать полностью программу Turbo Pascal Задание: Найти сумму отрицательных элементов массива

const    n = 10;var    a: array[1..n] of integer;    i, s: integer;begin    s := 0;    for i := 1 to n do     begin        a[i] := random(20) - 10;        if (a[i] < 0) then s := s + a[i];    end;    writeln(s);end.