Program tablou; 
var m:array[1..6,1..6] of integer;
    i,j:integer;
begin
writeln('Дайте матрицу M'); 
for i:=1 to 6 do
  for j:=1 to 6 do  
    begin
     writeln('Дайте элемент в ряду ',i,' и столбце ',j);
     read(m[i,j]);
    end;
for i:=1 to 6 do
 for j:=i-1 to 6 do 
  write(m[i,j],' ');
end.