Помогите пожалуйста решить задачу в Pascal вот Задача:Заполните с клавиатуры массив К, состоящий из N элементов. Найдите произведение четных элементов.Если сделаете отправьте скриншотом из паскаль

constm=1000;vark:array[1..m]of integer;i,n:integer;p:real;beginp:=1;   writeln('INPUT n');   readln(n);       for i:=1 to n do         begin           read(k[i]);  {массив вводится через пробел, последний элемент Enter}                if k[i]mod 2=0 then                   p:=p*k[i];          end;writeln;writeln('p = ',p:4:0);end.