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

var a,s,i,n:integer;begin;randomize;readln(n);writeln('False array:');for i:=1 to n dobegin;s:=random(-10,10);writeln(s);if s<0 then inc(a);end;writeln('Result:',a);end.