Вводятся 5 целых чисел вывести количество отрицательных . Помогите плиззз!!!
var a: array [1..100] of integer; i, n, k: integer; begin n := 5; for i := 1 to n do begin read(a[i]); if a[i] < 0 then k := k + 1; end; write(k); end.