procedure TForm1.Button1Click(Sender: TObject);
var i, j, n, m: Integer; res: Int64;
begin

n:=StrToInt(Edit1.text);
m:=StrToInt(Edit2.text);

res := 1;

for j:=1 to m do
for i:=1 to n do
  res := res * (2*i + j);

label1.Caption:=FloatToStr(res);


end;