Определите и выведите на экран произведение чётных чисел меньше 15. Паскаль

2; 4; 6; 8; 10; 12; 14 - найти произведение этих чисел

первое число 2, а каждое следующее на 2 больше предыдущего

program pr_chot;

var i, p:integer;

begin

p:=1;

i:=2;

while i<=15 do

begin

p:=p * i;

i:=i+2

end;

writeln ('p=', p)

end.