Составить программу на языке прграммирования 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.