Решить в pascal вот : заполните с клавиатуры массив к, состоящий из n элементов. найдите произведение четных элементов.если сделаете отправьте скриншотом из паскаль

Const
m=1000;
var
k:array[1..m]of integer;
i,n:integer;
p:real;
begin
p:=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.