program zad_2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
tab :array [1..10,1..10] of integer;
n, i, j :integer;
kw, w :integer;
ww, e :Integer;
sgp :integer;
s2p :integer;

begin
randomize;
write('podaj wielkosc tablicy: ');
readln(n);

for i:=1 to n do
begin
for j:=1 to n do
tab[i,j]:=random(20);       //wypelnienie tablicy randomem
end;

for i:=1 to n do
begin
  for j:=1 to n do
  begin
  write(tab[i,j]:4);        // wyswietlenie tablicy
  end;
writeln;
end;
Writeln;

write ('w ktorej kolumnie chcesz policzyc sume? : ');
readln (w);
kw:=0;

for i:=1 to n do
begin
  kw:=kw+tab[i,w];                            //wybor kolumny do zsumowania
end;

write ('suma ', w, ' kolumny to: ', kw);
writeln;
writeln;


write ('w ktorym wierszu chcesz policzyc sume? : ');
readln (e);
ww:=0;

for j:=1 to n do
begin
  ww:=ww+tab[e,j];                           //wybor wiesza do zsumowania
end;

write ('suma ', e, ' wiersza to: ',ww);
writeln;
writeln;


for i:=1 to n do
begin
    sgp:=sgp + tab[i,i];                     //suma glownej przekatnej >\<
end;

write ('suma glownej przekatnej wynosi: ',sgp);
writeln;

for i:=1 to n do
begin
  s2p:=s2p + tab[                              //suma 2 przekatnej >/<
end;

write ('suma na 2 przekatnej wynosi: ',s2p);

readln;
end.