program PascalGuru;
var A:array[1..15,1..15] of integer;
i,j,n:integer;
L,summaL,summaD:integer;
begin
for i:=1 to 15 do
for j:=1 to 15 do A[i,j]:=-16+random(52);{begin
write ('A[',i,',',j,']='); readln (A[i,j]); end; }

write ('Massiv A: ');
for i:=1 to 15 do begin writeln;
for j:=1 to 15 do write (A[i,j]:5,' '); end;

writeln; writeln;
write('L: '); readln(L);

summaL:=0;
for j:=1 to 15 do summaL:=summaL+A[L,j];

summaD:=0;
for i:=1 to 15 do
for j:=1 to 15 do
if i=j then summaD:=summaD+A[i,j];

writeln('Proizvedenie ravno: ',summaL*summaD);

readln;
end.