Описать функцию, вычисляющую N!. С её помощью вычислить сумму факториалов всех чётных чисел от А до В. Значения А и В ввести с клавиатуры

//PascalABC.NET версия 3.3.1590 от 03.12.2017//Если программа не запускается, то обновите версиюfunction factorial(n: integer): longint;begin    var p := 1;    for var i := 1 to n do        p := p * i;        Result := p;end;begin    var a := ReadInteger('a=');    var b := ReadInteger('b=');        var s := 0;    for var i := a to b do        if i mod 2 = 0 then s := s + factorial(i);        writeln('S = ', s);end.Писалось на скорую руку без проверок и оптимизации