uses crt;
var
a: array [1 .. 10, 1 .. 10] of integer;
i, j, sg, sp: integer;
begin
clrscr;
randomize;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(20);
write(a[i, j]:3);
if i = j then
sg := sg + a[i, j];
if j = 11 - i then
sp := sp + a[i, j];
end;
writeln;
end;
writeln;
writeln('summa glav diag = ', sg);
writeln('summa poboch diagonali = ', sp);
readln;
end.