Написать программу нахождения факториала: 1) n! 2)1! +2! +3! ++n! 3)1! +3! +5! ++(2n-1)!

Program zadanie1;
var n:integer;
        rn:int64;
{}
function f(arg:integer):int64;
var fi:integer;
begin
        f:=1;
        for fi:=1 to arg do begin
                f:=f*fi
        end
end;
{}
begin
        readln(n);
        rn:=f(n);
        writeln(rn);
        readln
end.