Дан массив B,состоящий из 15 элементов значения которого вводятся с клавиатуры. подсчитать сколько элементов массива положителлных и четных 

Program a; Var Mas : array [1..15] of integer; b,c,i: integer; Begin K:=0; C:=0; For i:=1 to 15 do begin read (Mas[i]); If (Mas[i]>0) then inc(k); If ((Mas[i] mod 2)=0) then inc(c); End; Writeln('положительных - ',k); Writeln('четных - ',c); End. (паскаль, не компилировал)