Написать программу для расчета произведения первых m четных чисел.

i,m,n,s:integer;

function fact(a:integer):integer;

var l:integer;

begin

l:=1;

for i:=2 to a do

l:=l*i;

fact:=l;

end;

begin

read(m);

readln(n);

s:=0;

for i:=m to n do

if i mod 2=0

then s:=fact(i)+s;

writeln(‘Suma: ‘,s);

end.