Дан целочисленный массив размера n. найти количество отрицательных элементов массива.

Program minus;
Var
A: array(1..100) of longint;
I:integer;
Begin
For i:=1 to length(A) do begin
If A[i] < 0 then writeln(A[i]);
End;
End.