Последовательно вводятся N целых чисел. Определить, каких среди них чисел больше: положительных или отрицатель­ных.Нужно построить блок-схему, заранее спасибо

const     N = 10; //твое число N var     i,c,nc,X: integer; begin for i:=1 to N do begin     READLN(X);     if(X >= 0) then inc(c)     else inc(nc); end;    if (c > nc) then Writeln('четных больше') else begin     if(c < nc) then Writeln('нечетных больше')     else if(c = nc) then writeln('кол-во четных и нечетных чисел равно'); end; end.