Вычислить сумму S=1!+3!+5!+n! с помощью функции function — Pascal(Паскаль)

program tmp;
uses crt;
var n:integer;
 
function fac(n:integer):integer;
begin
if n=0 then fac:=1
       else fac:=n*fac(n-1);
end;
 
begin
clrscr;
readln(n);
write('s=',fac(1)+fac(3)+fac(5)+fac(n));
readkey;
end.