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.