Получить на экране эвм квадратную матрицу: 1 2 3 4 2 4 6 8 3 6 9 12

Const m=20;
  var i,j,n: integer;
    a: array[1..m,1..m] of integer;
begin
  write('n = ');  readln(n);
{ заполнение массива и вывод на экран}
  for i:=1 to n do
  for j:=1 to n do
   begin
    a[i,j]:=i*j;
    write(a[i,j]:3,' ');
    if j=n then writeln;
  end;
 end.