В массиве подсчитать: количество положительных и количество четных…

На обычном паскалеАБЦvar a: array[1… 24] of integer; k,i: integer; begink: =0; for i: =1 to 24 do read (a[i]); for i: =1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k: =k+1; write (k) end.