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

Вопрос школьника по предмету Информатика

помогите пожалуйста
работа в паскали
составьте программу вычисления произведения четных чисел меньше 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.