Пожалуйста посчитайте пожалуйста работа в паскали составьте программу вычисления произведения четных чисел меньше 15

uses crt;
var p:integer;
begin
p:=1;
for var i:=1 to 14 do
if(i mod 2=0) then 
p*=i;   
writeln('произведения чётных чисел меньше 15= ',p);
end.