uses crt;
var a:array[1..100] of integer;
    n,i,k,kpol,kotr:integer;
begin clrscr;
    write ('Vvedi k: ');
    readln (k);
    write ('Vvedi kol-vo el-tov massiva: ');
    readln (n);
    kpol:=0;
    kotr:=0;
    for i:=1 to n do begin
      readln (a[i]);
      if a[i] mod 2=0 then
       if a[i]<0 then
        kotr:=kotr+1
       else
        kpol:=kpol+1;
    end;
    writeln ('Kol-vo elementov, kratnyh k: polozhitelnykh: ', kpol, ', otricatelnykh: ', kotr);
    readkey;
end.