Дано два ряда i = 0,1,2,3,4…. и j=0,1,2,3,4…последовательности чисел. Один ряд является элементами горизонтальной верхушки таблицы, а второй левой боковой частью той же таблицы. Таблица содержит числа, являющиеся произведением i-того числа и j-числа и находятся на перекрестье i-того столбца и j-той строчки, соответственно. Основная задача состоит в том, что вместо рядов i и j располагать другие ряды чисел, например x(i) = 2*i+1, y(j)=2*j+1 или x(i) = (2*i+1)/9, y(j)=(2*j+1)/9 и другие ряды чисел полученных с помощью любых других формул. Таблица должна содержать произведение уже этих чисел — Pascal(Паскаль)

const
  n = 5;
  m = 10;

var
  a: array[1..n, 1..m] of integer;
  i, j, k: byte;
  x, y: integer;

begin
  writeln;
  write('   |');
  for j := 1 to m do 
    write(j:6, '|');
  writeln;
  write('---+');
  for k := 1 to m do
    write('------+');
  writeln;
  for i := 1 to n do
  begin
    case i of
      1..99: Write(i:3, '|');
      100..999: Write(i, '|');
    end;
    for j := 1 to m do
    begin
      x := 2 * i + 1;
      y := 2 * j + 1;
      a[i, j] := x * y;
      Write(a[i, j]:6, '|');
    end;
    Writeln;
    write('---+');
    for k := 1 to m do
      write('------+');
    writeln;
  end;
  Readln
end.