Дана последовательность из N чисел. Написать программу которая подсчитывает количество отрицательных чисел в последовательности.

Program Z2;

var N, k, i: integer; a: real;

begin

writeln ('Введите количество чисел в последовательности');

readln (N);

k:=0;

for i:=1 to N do

begin

writeln ('Введите число');

readln (a);

if a<0 then k:=k+1;

end;

writeln ('Количество отрицательных чисел в последовательности = ', k);

end.