Помогите, пожалуйста с задачей:
Даны два целых числа A и B( A<B).Найти произведение всех целых четных чисел от A и B включительно. Начальным значением произведения считать равным 1

"Начальным значением произведения считать равным 1 "

VarA,B:integer;P:real;BeginP:=1;Write('A = ');Read(A);Write('B = ');Read(B);For A:=A to B do    P:=P*A;WriteLn(P)End.