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

Program a;Var Mas : array [1..15] of integer;b,c,i: integer;BeginK:=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.(паскаль, не компилировал)