program for_stingers;
  var x,y,maxa,maxb:integer;
      a,b:array [1..5,1..5] of integer;
begin
  for x:=1 to 5 do 
   for y:=1 to 5 do begin
    writeln('Введите элемент A[',x,',',y,']:');
    readln(a[x,y]);
    if a[x,y]>maxa then maxa:=a[x,y];
    writeln('Введите элемент B[',x,',',y,']:');
    readln(b[x,y]);
    if b[x,y]>maxb then maxb:=b[x,y];
   end;
  writeln ('Массив А исходный:');
  for x:=1 to 5 do begin
   for y:=1 to 5 do 
    write(a[x,y],' ');
    writeln;
   end;
  writeln ('Массив B исходный:');
  for x:=1 to 5 do begin
   for y:=1 to 5 do 
    write(b[x,y],' ');
    writeln;
   end;
  for x:=1 to 5 do begin
    if a[x,x]>0 then a[x,x]:=maxa;
    if b[x,x]>0 then b[x,x]:=maxb;
   end;
     writeln ('Массив А изменённый:');
  for x:=1 to 5 do begin
   for y:=1 to 5 do 
    write(a[x,y],' ');
    writeln;
   end;
  writeln ('Массив B изменённый:');
  for x:=1 to 5 do begin
   for y:=1 to 5 do 
    write(b[x,y],' ');
    writeln;
   end;
end.

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;