n и k вводятся с клавиатуры. найти (n+k+1)!/3*n*k

Program prog;
Uses crt;

var i, k, n: integer;
    f: longint;

begin
clrscr;
write('n = ');
readln(n);
write('k = ');
readln(k);
f:=1;

for i:= 2 to (n+k+1) do
f:=f*i;

writeln('Res = ', f/(3*n*k):0:3);
end.