program matrice;
uses crt;
var G:array [1..9, 1..6] of integer;
B:array [1..100] of integer;
i,j,n,m: integer;
begin
clrscr;
write ('introduce n,m');
readln (n,m);
for i:=1 to n do
for j:=1 to m do
read (G[i,j]);
write ('главная диагональ');
for i:=1 to n do
for j:=i to i do
begin
B[i]:=G[i,j];
write (B[i]:4);
end;
Writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
Write(g[i,j]);
end;
Writeln;
end;
readln;
end.