Записать в элемент массива [4,6] значение произведения индексов

type mas = array[1..10, 1..10] of integer;....Это для всех элементовfor x:=1 to 10 do beginfor y:=1 to 10 do beginmas[x,y] = x * y;end;end;....Это только для 4,6mas[4,6] = 4*6

const  k = 4;  p = 6;var  f: array [1..k, 1..p] of byte;begin    for i: byte := 1 to k do  begin    for j: byte := 1 to p do    begin      f[i, j] := random(10, 100);      write(f[i, j]:3);    end;    writeln();  end;//////////////////////////////////////////////////  writeln();  f[k, p] := k * p;//////////////////////////////////////////////////  for i: byte := 1 to k do  begin    for j: byte := 1 to p do      write(f[i, j]:3);    writeln();  end;end.