Написать программу заполнения двумерного массива данными

1 1 1

2 2 2

3 3 3
Паскаль

var

   arr: array [1..3, 1..3] of Integer;

   i, j: Integer;

begin

   for i := 1 to 3 do

       for j := 1 to 3 do

           arr[i][j] := i;

end.