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

program zz1;

const n = 15; / / задаем количество элементов в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer; / / задаем массив на n элементов

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do

if (m[i] mod 2 = 0) and (m[i] > 0) then k:=k+1; / / проверяем, если число при делении на два дает в остатке ноль и оно больше нуля, то считаем его

write (' количество четных и положительных элементов массива = ', k);

end.