Составить программы вычисления суммы: 2!+4!+6!+….+n!, (n<18, четное) - Pascal(Паскаль)

uses crt;
var n,i:byte;
    s:longint;
function Fac(n:integer):longint;
begin
if n<2 then Fac:=1
else Fac:=n*fac(n-1);
end;
begin
clrscr;
repeat
Write('Введите количество членов ряда от 1 до 6 n=');
readln(n);
until n in [1..8];
s:=0;
for i:=1 to n do
s:=s+Fac(i*2);
write('S=',s);
readln;
end.