[email protected] , ответ добавлен 12.03.2018 в 17:01

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

Писалось на скорую руку без проверок и оптимизации

 0