Составить программу на языке прграммирования Pascal, что бы на экран выводился квадрат Пифагора

Вот программа, выводит примерно так, как на картинке.
Program p_1;
var
  i, j : integer;
begin
  for i := 1 to 10 do
    begin  
      for j := 1 to 10 do
        write(i * j, ' ');
    end;
end.