program prog;
var
    arr : array[1..10] of array[1..10] of integer;
begin
    for var i := 1 to 10 do
        for var j := 1 to 10 do
            arr[i][j] := random(100);

    for var i := 1 to 10 do
    begin
        for var j := 1 to 10 do
        begin
            if (i < j) then
                write (arr[i][j]:3,' ')
            else
                write(' ':3,' ');
        end;
        writeln();
    end;
end.