Массив содержащий 2014 положительных целых чисел, напишите на ПАСКАЛЕ программу которая находит в этом массиве кол-во локальных минимумов значение которых кратно 3

program c5
const
N=2014;
var
a: array [1..N] of integer;
i; j; k: integer;
begin
for i:=1 to N do
readln(a[i]);
......
end.