Cоставьте программу которая заполняет массив а [1…

Vari,c: integer; a: array[1… 13] of integer; beginrandomize; for i: =1 to 13 do begina[i]: =random (10+1) -3; writeln (a[i],'); if (a[i] mod 2=0) and (a[i] >0) then inc (c); end; writeln ('Количество=',c); end.