Program tablou; 
var m:array[1..6,1..6] of integer;
    i,j:integer;
begin
randomize;
for i:=1 to 6 do
  for j:=1 to 6 do  
    begin
     m[i,j]:=random(100);
    end;
for i:=1 to 6 do
 for j:=i+1 to 6 do 
  write(m[i,j],' ');
end.