var 
    tomb : array [1..9] of integer = (8,-2, 4, -5, 6, -9, 8, -3, 0);
    i, n, c : integer;
begin
    n := 9;	
    c := 0;
    for i := 1 to n do
        if tomb[i] < 0 then c := c + 1;
    WriteLn('Negativ szamok: ', c);
end.