С клавиатуры вводятся K чисел. Подсчитать количество отрицательных чисел и творенье

Program n1;
var a,k,i,ko,p: integer;
begin
write('введите кол-во чисел: ');
readln(k);
i:=1;
ko:=0;
p:=1;
while kgt;i-1 do begin
write('введите ',i,' число: ');
readln(a);
if alt;0 then ko:=ko+a;
if a mod 2lt;gt;0 then p:=p*a;
i:=i+1;
end;
writeln('кол-во отриц: ',ko);
writeln('произв. нечет: ',p);
end.

include lt;iostreamgt;
using namespace std;
int main(int argc, char *argv[])    int array[100];    int i = 0; // счетчик цикла    int K;    int otr = 0;    int nech = 1;    cout lt;lt; "Input K: ";    cin gt;gt; K;    cout lt;lt; endl;    cout lt;lt; "Input numbers: " lt;lt; endl;    while(i != K)         cin gt;gt; array[i];        i++;        i = 0;    while(i != K)         if(array[i] lt; 0)             otr++;                if((array[i] % 2) != 0)             nech *= array[i];                i++;        cout lt;lt; "Otr = " lt;lt; otr lt;lt; endl lt;lt;            "Proizv. nechet = " lt;lt; nech lt;lt; endl;    return 0;