uses crt;
var
tablo :array [1..100,1..100] of integer;
i,j,m,say :integer;
 
procedure kosegen;
begin
for i:=1 to m do
 for j:=1 to m do
  read(tablo[i,j]);
 
readln;
say:=0;
for i:=1 to m do
   say:=say+tablo[i,i];
end;
 
 
begin
clrscr;
writeln('Kare matris satir sayisini giriniz.. : ');
readln(m);
writeln('Tablo degerlerini giriniz.. : ');
kosegen;
writeln('Kosegen degerleri toplami.. : ',say);
readln;
end.