Написать программу подсчёта числа отрицательных элементов массива

Основная часть: в цикле со счетчиком задаем условие - если очередной элемент массива меньше 0, то увеличиваем значение счетчика на 1 (k:=k+1). Последнее значение k подается на печать.varA: array [1..100] of real;k,i, N: integer;beginfor i:=1 to N doreadln(A[i]);k:=0;for i:=1 to N doif A[i]<0 then k:=k+1;writeln(\'Число отрицательных элементов массива равно \',k);readlnend.