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.
