Помогите решить 3 вариант 1 задачу

const n=11; var   a: array[1..n] of integer;   k: integer;   i: byte; begin   randomize;   k:=0;   for i:=1 to n do begin;         a[i]:=random(-5,5);      write (a[i]:4);     if (a[i]>=0) and (a[i] mod 2 =0)       then k:=k+1   end;   writeln;   writeln (k); end. ----------------------------------------- Пример:   -3   5  -5   1   2  -4  -1  -5   5   0  -4 2