Дан массив 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.

(паскаль, не компилировал)