Составить программу для вычисления суммы факториалов всех четных чисел от m до n.(matlab)

Var
 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.